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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: matrix.t
> ### Title: Matrix T
> ### Aliases: matrix.t
> ### Keywords: SYNCSA
> 
> ### ** Examples
> 
> data(ADRS)
> matrix.t(ADRS$community, ADRS$traits)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
SYNCSA
 --- call from context --- 
var.type(traits)
 --- call from argument --- 
if (class(data) != "data.frame" & class(data) != "matrix") {
    stop("data must be a matrix or a data.frame")
}
 --- R stacktrace ---
where 1: var.type(traits)
where 2: matrix.t(ADRS$community, ADRS$traits)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (data) 
{
    if (class(data) != "data.frame" & class(data) != "matrix") {
        stop("data must be a matrix or a data.frame")
    }
    colnames(data) <- colnames(data, do.NULL = FALSE, prefix = "var")
    is.bin <- function(k) all(k[!is.na(k)] %in% c(0, 1))
    nc <- ncol(data)
    if (is.data.frame(data)) {
        type <- sapply(data, data.class)
        type2 <- type
        bin.var <- rep(NA, nc)
        for (i in 1:nc) {
            bin.var[i] <- is.bin(data[, i])
        }
        type[type %in% c("numeric", "integer")] <- "c"
        type[type == "ordered"] <- "o"
        type[type == "character"] <- "n"
        type[type == "factor"] <- "f"
        type[bin.var] <- "b"
        type[type2 == "character"] <- "n"
        type[type2 == "factor"] <- "f"
        names(type) <- NULL
    }
    else {
        if (any(sapply(data, data.class) == "character")) {
            stop("\n If data is a matrix class it must be entirely numeric \n")
        }
        type <- rep("c", nc)
    }
    return(type)
}
<bytecode: 0x7716998>
<environment: namespace:SYNCSA>
 --- function search by body ---
Function var.type in namespace SYNCSA has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(data) != "data.frame" & class(data) != "matrix") { : 
  the condition has length > 1
Calls: matrix.t -> var.type
Execution halted