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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: alignPoly
> ### Title: Align various types of coefficient matrices
> ### Aliases: alignPoly
> 
> ### ** Examples
> 
> 
> library(treenomial)
> library(ape)
> differentSizeTrees <- c(rtree(2), rmtree(10,10))
> coeffs <- treeToPoly(differentSizeTrees, numThreads = 0)
> alignedCoeffs <- alignPoly(coeffs)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
treenomial
 --- call from context --- 
alignPoly(coeffs)
 --- call from argument --- 
if (class(coefficientMatrices[[1]]) == "matrix") {
    if (typeof(coefficientMatrices[[1]]) == "double") {
        coefficientMatrices <- alignCoeffs(coefficientMatrices, 
            type = "real")
    }
    else if (typeof(coefficientMatrices[[1]]) == "complex") {
        if (dim(coefficientMatrices[[1]])[[1]] == 1) {
            coefficientMatrices <- alignCoeffs(coefficientMatrices, 
                type = "complex")
        }
        else {
            coefficientMatrices <- alignCoeffs(coefficientMatrices, 
                type = "tipLabel")
        }
    }
    else {
        stop("invalid input")
    }
} else {
    stop("input must be a list of coefficient matrices")
}
 --- R stacktrace ---
where 1: alignPoly(coeffs)

 --- value of length: 2 type: logical ---
[1]  TRUE FALSE
 --- function from context --- 
function (coefficientMatrices) 
{
    if (class(coefficientMatrices) == "list") {
        if (class(coefficientMatrices[[1]]) == "matrix") {
            if (typeof(coefficientMatrices[[1]]) == "double") {
                coefficientMatrices <- alignCoeffs(coefficientMatrices, 
                  type = "real")
            }
            else if (typeof(coefficientMatrices[[1]]) == "complex") {
                if (dim(coefficientMatrices[[1]])[[1]] == 1) {
                  coefficientMatrices <- alignCoeffs(coefficientMatrices, 
                    type = "complex")
                }
                else {
                  coefficientMatrices <- alignCoeffs(coefficientMatrices, 
                    type = "tipLabel")
                }
            }
            else {
                stop("invalid input")
            }
        }
        else {
            stop("input must be a list of coefficient matrices")
        }
    }
    else {
        stop("input must be a list of coefficient matrices")
    }
    return(coefficientMatrices)
}
<bytecode: 0x27574b0>
<environment: namespace:treenomial>
 --- function search by body ---
Function alignPoly in namespace treenomial has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(coefficientMatrices[[1]]) == "matrix") { : 
  the condition has length > 1
Calls: alignPoly
Execution halted