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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: expectedList
> ### Title: Expected list.
> ### Aliases: expectedList
> 
> ### ** Examples
> 
> # A character column (with separator)
> frame <- data.frame(A = c("Man; Women", "Women; Women",
+                         "Man; Man", "Undet.; Women; Man"))
> data <- dichotomize(frame, "A", sep = "; ")[2:4]
> C <- coin(data) # coincidence matrix
> expectedList(C) # edge data frame
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
netCoin
 --- call from context --- 
edgeList(attr(data, "e"), "shape", min = 0, max = Inf)
 --- call from argument --- 
if (class(data) != "matrix" & class(data) != "data.frame") stop("Error: input must be a matrix (shape) or a data.frame (tree)")
 --- R stacktrace ---
where 1: edgeList(attr(data, "e"), "shape", min = 0, max = Inf)
where 2: expectedList(C)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (data, procedures = "Haberman", criteria = "Z", level = 0.95, 
    Bonferroni = FALSE, min = -Inf, max = Inf, support = -Inf, 
    directed = FALSE, diagonal = FALSE, sort = NULL, decreasing = TRUE, 
    pairwise = FALSE) 
{
    level <- checkLevel(level)
    if (tolower(substr(criteria, 1, 2)) %in% c("z", "hy") & substr(tolower(procedures[1]), 
        1, 2) != "sh") {
        if (max == Inf) 
            max <- 0.5
        if (Bonferroni) 
            max <- max/choose(nrow(data), 2)
    }
    if (substr(tolower(procedures)[1], 1, 2) != "sh") {
        if (class(data) != "coin") 
            stop("Error: input must be a coin object (see coin function)")
        funcs <- c.method(procedures)
        if (!is.null(sort)) 
            funcs <- union(c.method(sort), funcs)
        criteria <- c.method(criteria)
        todas <- union(funcs, criteria)
        matrices <- sim(data, todas, level = level, minimum = min, 
            pairwise = pairwise)
        funcs <- i.method(funcs)
        criteria <- i.method(criteria)
        if (length(union(funcs, criteria)) == 1) {
            M <- new.env()
            M[[funcs]] <- matrices
            matrices <- as.list(M)
        }
        matrices <- matrices[i.method(todas)]
        Mat <- mats2edges(data[, ], matrices, criteria = criteria, 
            min = min, max = max, support = support, directed = directed, 
            diagonal = diagonal)
    }
    else {
        if (class(data) != "matrix" & class(data) != "data.frame") 
            stop("Error: input must be a matrix (shape) or a data.frame (tree)")
        if (class(data) == "matrix") {
            if (min == -Inf) 
                min <- 1
            Mat <- mats2edges(data, min = min, max = max, directed = directed, 
                diagonal = diagonal)
        }
        if (class(data) == "data.frame") {
            lines <- sapply(data, as.character)
            lines <- rbind(c(lines[1, 1], rep(NA, ncol(lines) - 
                1)), lines)
            lines <- ifelse(lines == "", NA, lines)
            adjlist <- split(lines, seq(nrow(lines)))
            adjlist <- sapply(adjlist, na.omit)
            Source = unlist(lapply(adjlist, function(x) rep(x[1], 
                length(x) - 1)))
            Target = unlist(lapply(adjlist, "[", -1))
            return(as.data.frame(cbind(Source, Target), stringsAsFactors = FALSE, 
                row.names = FALSE))
        }
    }
    if (length(Mat) > 0) {
        if (!is.null(Mat$c.conditional)) 
            Mat$c.conditional <- factor(Mat$c.conditional, levels = c(0:8), 
                labels = c("Null", "Mere", "Conditional", "Significant", 
                  "Quite significant", "Very significant", "Subtotal", 
                  "Suptotal", "Total"))
        if (!is.null(Mat$c.probable)) 
            Mat$c.probable <- factor(Mat$c.probable, levels = c(0:8), 
                labels = c("Null", "Mere", "Probable", "Significant", 
                  "Quite significant", "Very significant", "Subtotal", 
                  "Suptotal", "Total"))
        if (!is.null(sort)) {
            if (substr(tolower(procedures)[1], 1, 2) != "sh") 
                Mat <- Mat[order(Mat[[i.method(c.method(sort))]], 
                  decreasing = decreasing), ]
            else Mat <- Mat[order(Mat$value, decreasing = decreasing), 
                ]
        }
    }
    else return(NULL)
    names(Mat)[names(Mat) == "Z"] <- "p(Z)"
    names(Mat)[names(Mat) == "Fisher"] <- "p(Fisher)"
    return(Mat)
}
<bytecode: 0x55627db28200>
<environment: namespace:netCoin>
 --- function search by body ---
Function edgeList in namespace netCoin has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(data) != "matrix" & class(data) != "data.frame") stop("Error: input must be a matrix (shape) or a data.frame (tree)") : 
  the condition has length > 1
Calls: expectedList -> edgeList
Execution halted