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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: itemStability
> ### Title: Item Stability Statistics from 'bootEGA'
> ### Aliases: itemStability
> 
> ### ** Examples
> 
> 
> # Load data
> wmt <- wmt2[,7:24]
> 
> ## Not run: 
> ##D # Estimate EGA network
> ##D ega.wmt <- EGA(data = wmt, model = "glasso")
> ##D 
> ##D # Estimate dimension stability
> ##D boot.wmt <- bootEGA(data = wmt, n = 100, typicalStructure = TRUE,
> ##D plot.typicalStructure = TRUE, model = "glasso",
> ##D type = "parametric", ncores = 4)
> ##D 
> ## End(Not run)
> 
> # Estimate item stability statistics
> itemStability(boot.wmt, orig.wc = ega.wmt$wc)
Lower the item.freq argument to view item frequencies for additional dimensions
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
EGAnet
 --- call from context --- 
net.loads(bootega.obj$bootGraphs[[m]], final.mat[, m])
 --- call from argument --- 
if (class(A) == "EGA") {
    wc <- A$wc
    A <- A$network
}
 --- R stacktrace ---
where 1: net.loads(bootega.obj$bootGraphs[[m]], final.mat[, m])
where 2: itemStability(boot.wmt, orig.wc = ega.wmt$wc)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (A, wc, rm.zero = FALSE, plot = FALSE) 
{
    if (class(A) == "EGA") {
        wc <- A$wc
        A <- A$network
    }
    comc <- NetworkToolbox::comcat(A, comm = wc, metric = "each", 
        absolute = FALSE, diagonal = 1)
    stab <- NetworkToolbox::stable(A, comm = wc, absolute = FALSE, 
        diagonal = 1)
    for (q in 1:nrow(comc)) {
        comc[q, which(is.na(comc[q, ]))] <- stab[q]
    }
    if (ncol(comc) != 1) {
        comm.str <- comc[, order(colnames(comc))]
        comm.str <- round(comm.str, 3)
    }
    else {
        comm.str <- stab
    }
    res <- list()
    if (rm.zero) {
        comm.str <- as.data.frame(ifelse(comm.str == 0, "", comm.str))
        unstd <- apply(as.matrix(comm.str), 2, as.numeric)
        unstd <- ifelse(is.na(unstd), 0, unstd)
        row.names(comm.str) <- colnames(A)
        res$unstd <- comm.str
        if (ncol(comc) != 1) {
            std <- t(t(unstd)/sqrt(colSums(unstd)))
        }
        else {
            std <- t(t(unstd)/sqrt(sum(unstd)))
        }
        std <- as.data.frame(ifelse(std == 0, "", std))
        row.names(std) <- colnames(A)
        res$std <- std
    }
    else {
        unstd <- apply(as.matrix(comm.str), 2, as.numeric)
        row.names(unstd) <- colnames(A)
        res$unstd <- unstd
        if (ncol(comc) != 1) {
            std <- t(t(unstd)/sqrt(colSums(unstd)))
        }
        else {
            std <- t(t(unstd)/sqrt(sum(unstd)))
        }
        row.names(std) <- colnames(A)
        res$std <- std
    }
    if (plot) {
        std.res <- abs(res$std)
        std.res <- std.res/rowSums(std.res)
        std.res <- std.res - 0.001
        std.res <- ifelse(std.res == -0.001, 0, std.res)
        pies <- split(std.res, rep(1:nrow(std.res)))
        qgraph::qgraph(A, layout = "spring", groups = as.factor(wc), 
            label.prop = 1.5, pie = pies, vTrans = 200, negDashed = TRUE)
    }
    return(res)
}
<bytecode: 0x9ab5580>
<environment: namespace:EGAnet>
 --- function search by body ---
Function net.loads in namespace EGAnet has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(A) == "EGA") { : the condition has length > 1
Calls: itemStability -> net.loads
Execution halted