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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: informed_matreorder
> ### Title: Infer longitudinal hierarchy using informed matrix reordering
> ### Aliases: informed_matreorder
> 
> ### ** Examples
> 
> conts <- C.crocuta.female$contestants[C.crocuta.female$contestants$period <= 1990,]
> female.ranks <- informed_matreorder(contestants = conts, 
+ convention = 'mri', n =1, shuffles = 10, require.corroboration = TRUE, 
+ initial.ranks = C.crocuta.female$initial.ranks,
+ interactions = C.crocuta.female$interactions)

Working on period 1988 (1 of 3 periods)
Working on period 1989 (2 of 3 periods) ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
DynaRankR
 --- call from context --- 
FUN(X[[i]], ...)
 --- call from argument --- 
if (class(order1) == "matrix") {
    if (any(dimnames(order1)[[2]] != dimnames(order1)[[1]])) {
        stop("matrix supplied has different individuals in rows and columns")
    }
    order1 <- make_full_matrix(dimnames(order1)[[1]])
} else {
    order1 <- make_full_matrix(order1)
}
 --- R stacktrace ---
where 1: FUN(X[[i]], ...)
where 2: lapply(pick_next_mat, dyadic_similarity, orig)
where 3: i_dist(mat = intx.matrix, n = n, shuffles = shuffles, future_intx = future.intx.matrix, 
    current.period = current.period)
where 4: is.data.frame(x)
where 5: colnames(i_dist(mat = intx.matrix, n = n, shuffles = shuffles, 
    future_intx = future.intx.matrix, current.period = current.period)[[1]])
where 6: informed_matreorder(contestants = conts, convention = "mri", 
    n = 1, shuffles = 10, require.corroboration = TRUE, initial.ranks = C.crocuta.female$initial.ranks, 
    interactions = C.crocuta.female$interactions)

 --- value of length: 2 type: logical ---
[1]  TRUE FALSE
 --- function from context --- 
function (order1, order2) 
{
    if (class(order1) == "matrix") {
        if (any(dimnames(order1)[[2]] != dimnames(order1)[[1]])) {
            stop("matrix supplied has different individuals in rows and columns")
        }
        order1 <- make_full_matrix(dimnames(order1)[[1]])
    }
    else {
        order1 <- make_full_matrix(order1)
    }
    if (class(order2) == "matrix") {
        if (any(dimnames(order2)[[2]] != dimnames(order2)[[1]])) {
            stop("matrix supplied has different individuals in rows and columns")
        }
        order2 <- make_full_matrix(dimnames(order2)[[1]])
    }
    else {
        order2 <- make_full_matrix(order2)
    }
    if (any(!dimnames(order1)[[1]] %in% dimnames(order2)[[1]]) | 
        any(!dimnames(order2)[[1]] %in% dimnames(order1)[[1]])) {
        stop("can't compare orders with non-shared individuals")
    }
    num_same <- sum(order2[dimnames(order1)[[1]], dimnames(order1)[[1]]] == 
        order1) - nrow(order1)
    return((num_same/(length(order1) - nrow(order1))))
}
<bytecode: 0x1ada448>
<environment: namespace:DynaRankR>
 --- function search by body ---
Function dyadic_similarity in namespace DynaRankR has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(order1) == "matrix") { : the condition has length > 1
Calls: informed_matreorder ... colnames -> is.data.frame -> i_dist -> lapply -> FUN
Execution halted