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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: connectivity.plot
> ### Title: Plot the connectivity characteristics between groups associated
> ###   to a dynamic stochastic block model.
> ### Aliases: connectivity.plot
> 
> ### ** Examples
> 
> ####################
> ## 1 - binary case
> data(simdataT5Q4N40binary)
> 
> ## estimation for Q=1..5 groups
> list.dynsbm <- select.dynsbm(simdataT5Q4N40binary, 
+ 				Qmin=1, Qmax=5, edge.type="binary", nstart=1)
> 				
> ## Not run: 
> ##D ## better to use nstart>1 starting points
> ##D ## but estimation can take 1-2 minutes
> ##D list.dynsbm <- select.dynsbm(simdataT5Q4N40binary, 
> ##D 				Qmin=1, Qmax=5, edge.type="binary", nstart=25)
> ## End(Not run)
> 
> ## selection of Q=4
> dynsbm <- list.dynsbm[[4]]
> 
> ## plotting intra/inter connectivity patterns
> connectivity.plot(dynsbm, simdataT5Q4N40binary)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
dynsbm
 --- call from context --- 
FUN(X[[i]], ...)
 --- call from argument --- 
if (class(subYt) == "matrix") {
    d1 <- nrow(subYt)
    d2 <- ncol(subYt)
    if (q == l) {
        if (dynsbm$self.loop) {
            this.beta <- sum(subYt > 0)/(d1 * d1)
        }
        else {
            diag(subYt) <- NA
            this.beta <- sum(subYt > 0, na.rm = T)/(d1 * (d1 - 
                1))
        }
    }
    else {
        this.beta <- sum(subYt > 0)/(d1 * d2)
    }
}
 --- R stacktrace ---
where 1: FUN(X[[i]], ...)
where 2: lapply(X = X, FUN = FUN, ...)
where 3: sapply(1:T, FUN = function(t) {
    subYt <- Y[t, which(membership[, t] == q), which(membership[, 
        t] == l)]
    if (class(subYt) == "matrix") {
        d1 <- nrow(subYt)
        d2 <- ncol(subYt)
        if (q == l) {
            if (dynsbm$self.loop) {
                this.beta <- sum(subYt > 0)/(d1 * d1)
            }
            else {
                diag(subYt) <- NA
                this.beta <- sum(subYt > 0, na.rm = T)/(d1 * 
                  (d1 - 1))
            }
        }
        else {
            this.beta <- sum(subYt > 0)/(d1 * d2)
        }
    }
    if (class(subYt) %in% c("numeric", "integer")) {
        this.beta <- sum(subYt > 0)/length(subYt)
    }
    return(this.beta)
})
where 4: connectivity.plot(dynsbm, simdataT5Q4N40binary)

 --- value of length: 2 type: logical ---
[1]  TRUE FALSE
 --- function from context --- 
function (t) 
{
    subYt <- Y[t, which(membership[, t] == q), which(membership[, 
        t] == l)]
    if (class(subYt) == "matrix") {
        d1 <- nrow(subYt)
        d2 <- ncol(subYt)
        if (q == l) {
            if (dynsbm$self.loop) {
                this.beta <- sum(subYt > 0)/(d1 * d1)
            }
            else {
                diag(subYt) <- NA
                this.beta <- sum(subYt > 0, na.rm = T)/(d1 * 
                  (d1 - 1))
            }
        }
        else {
            this.beta <- sum(subYt > 0)/(d1 * d2)
        }
    }
    if (class(subYt) %in% c("numeric", "integer")) {
        this.beta <- sum(subYt > 0)/length(subYt)
    }
    return(this.beta)
}
<bytecode: 0x2b07860>
<environment: 0x2aeb678>
 --- function search by body ---
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(subYt) == "matrix") { : the condition has length > 1
Calls: connectivity.plot -> sapply -> lapply -> FUN
Execution halted