Last updated on 2020-01-27 00:48:01 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.6 | 48.38 | 38.07 | 86.45 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.6 | 28.26 | 32.01 | 60.27 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.6 | 117.92 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.6 | 104.35 | OK | |||
| r-devel-windows-ix86+x86_64 | 0.6 | 107.00 | 137.00 | 244.00 | OK | |
| r-devel-windows-ix86+x86_64-gcc8 | 0.6 | 110.00 | 94.00 | 204.00 | OK | |
| r-patched-linux-x86_64 | 0.6 | 29.17 | 36.58 | 65.75 | OK | |
| r-patched-solaris-x86 | 0.6 | 125.80 | OK | |||
| r-release-linux-x86_64 | 0.6 | 28.75 | 37.32 | 66.07 | OK | |
| r-release-windows-ix86+x86_64 | 0.6 | 79.00 | 81.00 | 160.00 | OK | |
| r-release-osx-x86_64 | 0.6 | OK | ||||
| r-oldrel-windows-ix86+x86_64 | 0.6 | 66.00 | 74.00 | 140.00 | OK | |
| r-oldrel-osx-x86_64 | 0.6 | OK |
Version: 0.6
Check: examples
Result: ERROR
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: 0x2536e50>
<environment: 0x24b1a98>
--- 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
Flavor: r-devel-linux-x86_64-debian-clang