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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: BBFULL
> ### Title: Branch-and-Bound algorithm to find the median ranking in the
> ###   space of full (or complete) rankings.
> ### Aliases: BBFULL
> ### Keywords: Median ranking
> 
> ### ** Examples
> 
> data(APAFULL)
> CR=BBFULL(APAFULL)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
ConsRank
 --- call from context --- 
BBFULL(APAFULL)
 --- call from argument --- 
if (class(X) == "data.frame") {
    X = as.matrix(X)
}
 --- R stacktrace ---
where 1: BBFULL(APAFULL)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (X, Wk = NULL, PS = TRUE) 
{
    if (class(X) == "data.frame") {
        X = as.matrix(X)
    }
    M = nrow(X)
    N = ncol(X)
    tic = proc.time()[3]
    if (M == 1) {
        consensus = X
        TauX = 1
    }
    else {
        if (!is.null(Wk)) {
            if (is.numeric(Wk)) {
                Wk = matrix(Wk, ncol = 1)
            }
            cij = combinpmatr(X, Wk)
        }
        else {
            cij = combinpmatr(X)
        }
        if (sum(cij == 0) == nrow(cij)^2) {
            print("Combined Input Matrix contains only zeros: any ranking in the reference universe is a median ranking")
            return()
        }
        R = findconsensusBB(cij)
        cons1 = BBconsensus(R, cij, FULL = TRUE)
        consensus1 = cons1$cons
        Po = cons1$pen
        consensus = BBconsensus2(consensus1, cij, Po, PS, FULL = TRUE)
    }
    if (nrow(consensus) == 1) {
        Sij = scorematrix(consensus)
        if (!is.null(Wk)) {
            TauX = sum(cij * Sij)/(sum(Wk) * (N * (N - 1)))
        }
        else {
            TauX = sum(cij * Sij)/(M * (N * (N - 1)))
        }
    }
    else {
        TauX = matrix(0, nrow(consensus), 1)
        for (k in 1:nrow(consensus)) {
            Sij = scorematrix(t(matrix(consensus[k, ])))
            if (!is.null(Wk)) {
                TauX[k, 1] = sum(cij * Sij)/(sum(Wk) * (N * (N - 
                  1)))
            }
            else {
                TauX[k, 1] = sum(cij * Sij)/(M * (N * (N - 1)))
            }
        }
    }
    toc = proc.time()[3]
    colnames(consensus) = colnames(X)
    eltime = toc - tic
    return(list(Consensus = reordering(consensus), Tau = TauX, 
        Eltime = eltime))
}
<bytecode: 0x55fde2aedc18>
<environment: namespace:ConsRank>
 --- function search by body ---
Function BBFULL in namespace ConsRank has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1