CRAN Package Check Results for Package dynsbm

Last updated on 2020-02-19 10:48:51 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.6 50.22 39.09 89.31 ERROR
r-devel-linux-x86_64-debian-gcc 0.6 26.11 30.42 56.53 ERROR
r-devel-linux-x86_64-fedora-clang 0.6 116.79 ERROR
r-devel-linux-x86_64-fedora-gcc 0.6 103.08 ERROR
r-devel-windows-ix86+x86_64 0.6 77.00 85.00 162.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.6 123.00 122.00 245.00 OK
r-patched-linux-x86_64 0.6 31.85 36.55 68.40 OK
r-patched-solaris-x86 0.6 127.60 OK
r-release-linux-x86_64 0.6 34.71 36.96 71.67 OK
r-release-windows-ix86+x86_64 0.6 75.00 81.00 156.00 OK
r-release-osx-x86_64 0.6 OK
r-oldrel-windows-ix86+x86_64 0.6 70.00 81.00 151.00 OK
r-oldrel-osx-x86_64 0.6 OK

Check Details

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: 0x9294a8>
    <environment: 0x91ff60>
     --- 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

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: 0x55dc0ea65770>
    <environment: 0x55dc0ea5bdd0>
     --- 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-gcc

Version: 0.6
Check: examples
Result: ERROR
    Running examples in ‘dynsbm-Ex.R’ failed
    The error most likely occurred in:
    
    > ### 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: 0x33927c8>
    <environment: 0x33ad148>
     --- 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-fedora-clang

Version: 0.6
Check: examples
Result: ERROR
    Running examples in ‘dynsbm-Ex.R’ failed
    The error most likely occurred in:
    
    > ### 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: 0x3624348>
    <environment: 0x362baf8>
     --- 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-fedora-gcc