Running examples in ‘cytometree-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: CytomeTree
> ### Title: Binary tree algorithm for cytometry data analysis.
> ### Aliases: CytomeTree
> 
> ### ** Examples
> 
> head(DLBCL)
  FL1 FL2 FL4 label
1 416 251 293     2
2 210  93 184     2
3 387 300 233     2
4 403 438 288     2
5 399 128 116     2
6 538 288 189     2
> 
> # number of cell event
> N <- nrow(DLBCL)
> 
> # Cell events
> cellevents <- DLBCL[, c("FL1", "FL2", "FL4")]
> 
> 
> # Manual partitioning of the set N (from FlowCAP-I)
> manual_labels <- DLBCL[, "label"]
> 
> 
> # Build the binary tree
> Tree <- CytomeTree(cellevents, minleaf = 1, t=.1)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
cytometree
 --- call from context --- 
CytomeTree(cellevents, minleaf = 1, t = 0.1)
 --- call from argument --- 
if (class(M) != "matrix" | mode(M) != "numeric") {
    stop("M should be a numeric matrix")
}
 --- R stacktrace ---
where 1: CytomeTree(cellevents, minleaf = 1, t = 0.1)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (M, minleaf = 1, t = 0.1, verbose = TRUE, force_first_markers = NULL) 
{
    if (class(M) == "data.frame") {
        M <- as.matrix(M)
    }
    if (class(M) != "matrix" | mode(M) != "numeric") {
        stop("M should be a numeric matrix")
    }
    n <- nrow(M)
    if (minleaf >= n) {
        stop("minleaf is superior to n.")
    }
    p <- ncol(M)
    if (p > n) {
        stop("p is superior to n.")
    }
    if (any(is.na(M))) {
        stop("M contains NAs.")
    }
    if (is.null(colnames(M))) {
        colnames(M) <- paste0(rep("M", p), 1:p)
    }
    if (!is.null(force_first_markers)) {
        if (any(!(force_first_markers %in% colnames(M)))) {
            cat("'force_first_markers' are not all in M colnames:")
            colnames(M)
            stop()
        }
    }
    BT <- BinaryTree(M, floor(minleaf), t, verbose, force_first_markers)
    annotation <- TreeAnnot(BT$labels, BT$combinations)
    Tree <- list(M = M, labels = BT$labels, pl_list = BT$pl_list, 
        t = t, mark_tree = BT$mark_tree, annotation = annotation)
    class(Tree) <- "CytomeTree"
    return(Tree)
}
<bytecode: 0x5559d32b60e8>
<environment: namespace:cytometree>
 --- function search by body ---
Function CytomeTree in namespace cytometree has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1