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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: btergm
> ### Title: TERGM by bootstrapped pseudolikelihood or MCMC MLE
> ### Aliases: btergm mtergm tergm
> 
> ### ** Examples
> 
> # A simple toy example:
> 
> library("network")
> set.seed(5)
> 
> networks <- list()
> for(i in 1:10) {           # create 10 random networks with 10 actors
+   mat <- matrix(rbinom(100, 1, .25), nrow = 10, ncol = 10)
+   diag(mat) <- 0           # loops are excluded
+   nw <- network(mat)       # create network object
+   networks[[i]] <- nw      # add network to the list
+ }
> 
> covariates <- list()
> for (i in 1:10) {          # create 10 matrices as covariate
+   mat <- matrix(rnorm(100), nrow = 10, ncol = 10)
+   covariates[[i]] <- mat   # add matrix to the list
+ }
> 
> fit <- btergm(networks ~ edges + istar(2) +
+     edgecov(covariates), R = 100)

Initial dimensions of the network and covariates:
                 t=1 t=2 t=3 t=4 t=5 t=6 t=7 t=8 t=9 t=10
networks (row)    10  10  10  10  10  10  10  10  10   10
networks (col)    10  10  10  10  10  10  10  10  10   10
covariates (row)  10  10  10  10  10  10  10  10  10   10
covariates (col)  10  10  10  10  10  10  10  10  10   10

All networks are conformable.

Dimensions of the network and covariates after adjustment:
                 t=1 t=2 t=3 t=4 t=5 t=6 t=7 t=8 t=9 t=10
networks (row)    10  10  10  10  10  10  10  10  10   10
networks (col)    10  10  10  10  10  10  10  10  10   10
covariates (row)  10  10  10  10  10  10  10  10  10   10
covariates (col)  10  10  10  10  10  10  10  10  10   10

Starting pseudolikelihood estimation with 100 bootstrapping replications on a single computing core...
Done.
> 
> summary(fit)               # show estimation results
==========================
Summary of model fit
==========================

Formula:   networks ~ edges + istar(2) + edgecov(covariates) 

Time steps: 10 

Bootstrapping sample size: 100 

Estimates and 95% confidence intervals:
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
btergm
 --- call from context --- 
.local(object, parm, level, ...)
 --- call from argument --- 
if (class(ci) == "numeric") {
    ci.nam <- names(ci)
    ci <- matrix(ci, nrow = 1)
    colnames(ci) <- ci.nam
    rownames(ci) <- names(cf)
}
 --- R stacktrace ---
where 1: .local(object, parm, level, ...)
where 2: confint(object, level = level, type = type, invlogit = invlogit, 
    ...)
where 3: confint(object, level = level, type = type, invlogit = invlogit, 
    ...)
where 4: .local(object, ...)
where 5: summary(fit)
where 6: summary(fit)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (object, parm, level = 0.95, type = "perc", invlogit = FALSE, 
    ...) 
{
    cf <- coef(object, invlogit = invlogit)
    pnames <- names(cf)
    if (missing(parm)) {
        parm <- pnames
    }
    else if (is.numeric(parm)) {
        parm <- pnames[parm]
    }
    n.orig <- nrow(object@boot$t)
    object@boot$t <- object@boot$t[complete.cases(object@boot$t), 
        ]
    n.ret <- nrow(object@boot$t)
    perc <- 100 * (n.orig - n.ret)/n.orig
    if (n.orig != n.ret) {
        warning(paste0("Too little variation in the model. ", 
            n.orig - n.ret, " replications (", perc, "%) are dropped from CI estimation."))
    }
    if (invlogit == TRUE) {
        object@boot$t <- apply(object@boot$t, 1:2, function(x) 1/(1 + 
            exp(-x)))
        object@boot$t0 <- sapply(object@boot$t0, function(x) 1/(1 + 
            exp(-x)))
    }
    if (type == "perc") {
        type2 <- "percent"
    }
    else if (type == "norm") {
        type2 <- "normal"
    }
    else if (type == "basic") {
        type2 <- "basic"
    }
    else if (type == "stud") {
        type2 <- "student"
    }
    else if (type == "bca") {
        type2 <- "bca"
    }
    else {
        stop(paste("'type' not supported. Use 'perc', 'bca', 'norm', 'basic',", 
            "or 'stud'."))
    }
    ci <- sapply(1:length(cf), function(x) {
        b <- boot::boot.ci(object@boot, conf = level, type = type, 
            index = x)
        b[[type2]][4:5]
    })
    ci <- cbind(cf, t(ci))
    if (class(ci) == "numeric") {
        ci.nam <- names(ci)
        ci <- matrix(ci, nrow = 1)
        colnames(ci) <- ci.nam
        rownames(ci) <- names(cf)
    }
    ci <- ci[parm, ]
    if (class(ci) != "matrix") {
        ci <- matrix(ci, ncol = 3)
        rownames(ci) <- parm
    }
    label1 <- paste0(100 * (1 - level)/2, "%")
    label2 <- paste0(100 * (1 - (1 - level)/2), "%")
    colnames(ci) <- c("Estimate", label1, label2)
    return(ci)
}
<environment: namespace:btergm>
 --- function search by body ---
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1