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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: linest-matrix
> ### Title: Linear estimates matrix
> ### Aliases: linest-matrix LE_matrix LE_matrix.default
> ###   aggregate_linest_list get_linest_list
> ### Keywords: utilities
> 
> ### ** Examples
> 
> 
> ## Two way anova:
> 
> data(warpbreaks)
> 
> ## An additive model
> m0 <- lm(breaks ~ wool + tension, data=warpbreaks)
> 
> ## Estimate mean for each wool type, for tension="M":
> K <- LE_matrix(m0, at=list(wool=c("A", "B"), tension="M"))
> K
     (Intercept) woolB tensionM tensionH
[1,]           1     0        1        0
[2,]           1     1        1        0
> 
> ## Vanilla computation:
> K %*% coef(m0)
         [,1]
[1,] 29.27778
[2,] 23.50000
> 
> ## Alternative; also providing standard errors etc:
> linest(m0, K)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
doBy
 --- call from context --- 
null_basis(object)
 --- call from argument --- 
if (class(m) != "try-error") .null_basis(m) else stop("Can not find null basis for 'object'")
 --- R stacktrace ---
where 1: null_basis(object)
where 2: is_estimable(L, null_basis(object))
where 3: linest.lm(m0, K)
where 4: linest(m0, K)

 --- value of length: 2 type: logical ---
[1] TRUE TRUE
 --- function from context --- 
function (object) 
{
    .null_basis <- function(object) {
        S <- svd(object)
        id <- S$d < 1e-15
        if (any(id)) {
            null.basis <- S$v[, id, drop = FALSE]
            null.basis
        }
        else {
            matrix(nrow = ncol(object), ncol = 0)
        }
    }
    if (is.character(object)) {
        stop("'object' of type 'character' not valid")
    }
    if (is.vector(object)) {
        object <- matrix(object, ncol = 1)
    }
    if (inherits(object, c("matrix", "Matrix"))) {
        .null_basis(object)
    }
    else {
        m <- try(model.matrix(object), silent = TRUE)
        if (class(m) != "try-error") 
            .null_basis(m)
        else stop("Can not find null basis for 'object'")
    }
}
<bytecode: 0xd192f08>
<environment: namespace:doBy>
 --- function search by body ---
Function null_basis in namespace doBy has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(m) != "try-error") .null_basis(m) else stop("Can not find null basis for 'object'") : 
  the condition has length > 1
Calls: linest -> linest.lm -> is_estimable -> null_basis
Execution halted