Running examples in 'minque-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: brate
> ### Title: Cotton boll retention rate data
> ### Aliases: brate
> ### Keywords: datasets cotton boll retention linear mixed model MINQUE REML
> ###   resampling jackknife
> 
> ### ** Examples
> 
> 
>  library(minque)
> 
>  data(brate)
>  head(brate)
  Year Geno Pos Rep Brate
1    1    1   5   1   0.2
2    1    1   5   2   0.0
3    1    1   5   3   0.1
4    1    1   5   3   0.0
5    1    1   5   4   0.0
6    1    1   5   4   0.1
>  brate$Geno=factor(brate$Geno)
>  brate$Pos=factor(brate$Pos)
>  brate$Rep=factor(brate$Rep)
>  
>  res=lmm(Brate~1|Geno*Pos+Rep,data=brate)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
minque
 --- call from context --- 
minque.default(X, U, Y, C, au, LUP)
 --- call from argument --- 
if (class(Y) == "numeric") Y = data.frame(Y)
 --- R stacktrace ---
where 1: minque.default(X, U, Y, C, au, LUP)
where 2: genmod(gdata)
where 3: genmod.mq(gdata)
where 4: mq0(gdata)
where 5: lmm1(formula, data = data, method = method, ALPHA = ALPHA)
where 6: lmm(Brate ~ 1 | Geno * Pos + Rep, data = brate)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (X, U, Y, C = NULL, au = NULL, LUP = NULL, ...) 
{
    mk = length(U)
    n = nrow(U[[1]])
    if (is.null(au)) 
        au = rep(1, (mk + 1))
    if (is.null(X)) 
        X = matrix(1, nrow = n, ncol = 1)
    if (is.null(C)) 
        C = NULL
    xnames = colnames(X)
    if (mk == 0) 
        vnames = "V(e)"
    else if (mk > 0) {
        rnames = NULL
        vnames = c(paste("V(", names(U), ")", sep = ""), "V(e)")
        for (i in 1:mk) rnames = c(rnames, colnames(U[[i]]))
    }
    aa = GetQa(au, U, X, C)
    Qa = aa$Qa
    VI = aa$VI
    ML = MINQUE_L(Qa, U)
    if (class(Y) == "numeric") 
        Y = data.frame(Y)
    TraitNum = ncol(Y)
    TraitNames = colnames(Y)
    Var = matrix(0, (mk + 1), TraitNum)
    B = matrix(0, ncol(X), TraitNum)
    hf = list()
    if (mk > 0) 
        Pre = matrix(0, length(rnames), TraitNum)
    if (is.null(LUP)) 
        VI = NULL
    for (i in 1:TraitNum) {
        MR = MINQUE_R(Qa, U, Y[, i])
        a = MINQUEVarPre(Qa, X, U, ML, MR, Y[, i], C, VI)
        Var[, i] = a[[1]]
        B[, i] = a[[2]]
        if (mk > 0) 
            Pre[, i] = a[[3]]
        hf[[i]] = a$HF
    }
    colnames(Var) = TraitNames
    rownames(Var) = vnames
    colnames(B) = TraitNames
    rownames(B) = xnames
    names(hf) = TraitNames
    if (mk > 0) {
        colnames(Pre) = TraitNames
        rownames(Pre) = rnames
    }
    if (mk > 0) 
        result = list(Var = data.frame(Var), FixEffect = data.frame(B), 
            RandomEffect = data.frame(Pre), HV = ML, Qa = Qa, 
            HF = hf)
    if (mk == 0) 
        result = list(Var = data.frame(Var), FixEffect = data.frame(B), 
            RandomEffect = NULL, HV = ML, Qa = Qa, HF = hf)
    result$call = match.call()
    return(result)
}
<bytecode: 0xb9d48e0>
<environment: namespace:minque>
 --- function search by body ---
Function minque.default in namespace minque has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1