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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: dp
> ### Title: dp Diversity Profile
> ### Aliases: dp
> 
> ### ** Examples
> data(TCR.Data)
> result <- dp(x[,1:4], PlugIn = TRUE)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
divo
 --- call from context --- 
dp(x[, 1:4], PlugIn = TRUE)
 --- call from argument --- 
if (class(xx) != "matrix") {
    xx <- as.matrix(xx)
}
 --- R stacktrace ---
where 1: dp(x[, 1:4], PlugIn = TRUE)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (x, alpha = seq(0.1, 2, 0.1), CI = 0.95, resample = 100, 
    single_graph = FALSE, pooled_graph = FALSE, csv_output = FALSE, 
    PlugIn = FALSE, size = 1, CVG = FALSE, saveBootstrap = FALSE) 
{
    xx = x
    resample = round(resample, 0)
    xx[is.na(xx)] <- 0
    if (resample < 1) {
        stop("resample must be greater than 1")
    }
    if (size < 0.1) {
        stop("size must be greater than or equal to 0.1")
    }
    if (0 < CI & CI < 1) {
        f = "RE"
        if (class(xx) != "matrix") {
            xx <- as.matrix(xx)
        }
        Alpha.Profile = alpha
        if (min(Alpha.Profile) <= 0) {
            stop("alpha must be larger than 0")
        }
        DP_nAP = length(Alpha.Profile)
        dimX = dim(xx)
        OutMean = mat.or.vec(DP_nAP, dimX[2])
        OutMin = mat.or.vec(DP_nAP, dimX[2])
        OutMax = mat.or.vec(DP_nAP, dimX[2])
        OutCvg = mat.or.vec(dimX[2], 1)
        .Call("read", "DP", xx, "DP", 1, resample, CI, "RE", 
            PlugIn, size, Alpha.Profile, CVG, saveBootstrap, 
            OutMean, OutMin, OutMax, OutCvg, 0, 0, 0, 0, 0, 0, 
            0, 0, 0, 0, 0, 0, 0, 0, 0)
        if (csv_output != FALSE) {
            .csv.save(Alpha.Profile, OutMean, OutMin, OutMax, 
                PlugIn, csv_output, CVG, def.fname.csv = "DP_output.csv", 
                xx)
        }
        if (PlugIn == FALSE) {
            li = list()
            for (l in 1:dim(OutMean)[2]) {
                li[[l]] <- cbind(alpha = Alpha.Profile, Mean = OutMean[, 
                  l], Lower.Quantile = OutMin[, l], Upper.Quantile = OutMax[, 
                  l])
            }
            names(li) <- colnames(xx)
        }
        else {
            li = list()
            for (l in 1:dim(OutMean)[2]) {
                li[[l]] <- cbind(Alpha = Alpha.Profile, PlugIn = OutMean[, 
                  l])
            }
            names(li) <- colnames(xx)
        }
        if (length(Alpha.Profile) <= 1) {
            warning("For graphics alpha must be a vector of lenght greater than 1")
        }
        y.label = "Diversity Index"
        title = "Diversity Profile:"
        single.fname = "DP_"
        max.y = (max(OutMean) + 0.3)
        min.y = min(OutMean) - 0.3
        if (pooled_graph != FALSE & length(alpha) > 1) {
            .pooled.graph(Alpha.Profile, OutMean, OutMax, OutMin, 
                y.label, min.y, max.y, title, pooled_graph, PlugIn, 
                def.fname.pdf = "divo_DP_AllPopulations.pdf", 
                xx)
        }
        if (single_graph != FALSE & length(alpha) > 1) {
            .single.graph(Alpha.Profile, xx, OutMean, OutMax, 
                OutMin, y.label, min.y, max.y, title, single_graph, 
                PlugIn, single.fname)
        }
    }
    else {
        stop("Confidence interval must be between 0 and 1; default CI=0.95")
    }
    return(li)
}
<bytecode: 0x5559bf367680>
<environment: namespace:divo>
 --- function search by body ---
Function dp in namespace divo has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1