Last updated on 2024-12-18 19:49:37 CET.
| Package | ERROR | NOTE | OK |
|---|---|---|---|
| ABCoptim | 13 | ||
| aphylo | 13 | ||
| epiworldR | 4 | 9 | |
| ergmito | 7 | 6 | |
| fmcmc | 13 | ||
| googlePublicData | 13 | ||
| netdiffuseR | 3 | 6 | 4 |
| netplot | 13 | ||
| rgexf | 13 | ||
| slurmR | 13 |
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: NOTE: 4, OK: 9
Version: 0.3-2
Check: installed package size
Result: NOTE
installed size is 15.3Mb
sub-directories of 1Mb or more:
libs 13.1Mb
Flavors: r-release-macos-arm64, r-release-macos-x86_64, r-oldrel-macos-arm64, r-oldrel-macos-x86_64
Current CRAN status: NOTE: 7, OK: 6
Version: 0.3-1
Check: Rd cross-references
Result: NOTE
Found the following Rd file(s) with Rd \link{} targets missing package
anchors:
nvertex.Rd: network
Please provide package anchors for all Rd \link{} targets not in the
package itself and the base packages.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-windows-x86_64
Version: 0.3-1
Check: installed package size
Result: NOTE
installed size is 5.6Mb
sub-directories of 1Mb or more:
libs 4.2Mb
Flavors: r-release-macos-arm64, r-release-macos-x86_64, r-oldrel-macos-arm64, r-oldrel-macos-x86_64
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: ERROR: 3, NOTE: 6, OK: 4
Version: 1.22.6
Check: examples
Result: ERROR
Running examples in ‘netdiffuseR-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: exposure
> ### Title: Ego exposure
> ### Aliases: exposure
> ### Keywords: univar
>
> ### ** Examples
>
> # Calculating lagged exposure -----------------------------------------------
>
> set.seed(8)
> graph <- rdiffnet(20, 4)
Warning in (function (graph, p, algorithm = "endpoints", both.ends = FALSE, :
The option -copy.first- is set to TRUE. In this case, the first graph will be treated as a baseline, and thus, networks after T=1 will be replaced with T-1.
>
> expo0 <- exposure(graph)
> expo1 <- exposure(graph, lags = 1)
>
> # These should be equivalent
> stopifnot(all(expo0[, -4] == expo1[, -1])) # No stop!
>
>
> # Calculating the exposure based on Structural Equivalence ------------------
> set.seed(113132)
> graph <- rdiffnet(100, 4)
Warning in (function (graph, p, algorithm = "endpoints", both.ends = FALSE, :
The option -copy.first- is set to TRUE. In this case, the first graph will be treated as a baseline, and thus, networks after T=1 will be replaced with T-1.
>
> SE <- lapply(struct_equiv(graph), "[[", "SE")
> SE <- lapply(SE, function(x) {
+ x <- 1/x
+ x[!is.finite(x)] <- 0
+ x
+ })
>
>
> # These three lines are equivalent to:
> expo_se2 <- exposure(graph, alt.graph="se", valued=TRUE)
> # Notice that we are setting valued=TRUE, but this is not necesary since when
> # alt.graph = "se" the function checks this to be setted equal to TRUE
>
> # Weighted Exposure using degree --------------------------------------------
> eDE <- exposure(graph, attrs=dgr(graph))
>
> # Which is equivalent to
> graph[["deg"]] <- dgr(graph)
> eDE2 <- exposure(graph, attrs="deg")
>
> # Comparing using incoming edges -------------------------------------------
> eIN <- exposure(graph, outgoing=FALSE)
>
> # Structral equivalence for different communities ---------------------------
> data(medInnovationsDiffNet)
>
> # Only using 4 time slides, this is for convenience
> medInnovationsDiffNet <- medInnovationsDiffNet[, , 1:4]
>
> # METHOD 1: Using the c.diffnet method:
>
> # Creating subsets by city
> cities <- unique(medInnovationsDiffNet[["city"]])
>
> diffnet <- medInnovationsDiffNet[medInnovationsDiffNet[["city"]] == cities[1]]
> diffnet[["expo_se"]] <- exposure(diffnet, alt.graph="se", valued=TRUE)
*** caught segfault ***
address (nil), cause 'unknown'
Traceback:
1: .nextMethod(.Object = .Object, ... = ...)
2: callNextMethod()
3: initialize(value, ...)
4: initialize(value, ...)
5: new("dgTMatrix", Dim = d, Dimnames = dn, i = i, j = j, x = x)
6: newTMat(i = c(ij1[, 1], ij2[, 1]), j = c(ij1[, 2], ij2[, 2]), x = if (Generic == "+") c(e1@x, e2@x) else c(e1@x, -e2@x))
7: .M2C(newTMat(i = c(ij1[, 1], ij2[, 1]), j = c(ij1[, 2], ij2[, 2]), x = if (Generic == "+") c(e1@x, e2@x) else c(e1@x, -e2@x)))
8: .Arith.Csparse(e1, e2, .Generic, class. = "dgCMatrix")
9: d[ids[, 1], ] - d[ids[, 2], ]
10: d[ids[, 1], ] - d[ids[, 2], ]
11: euclidean_distance(gdist)
12: struct_equiv_new(geod, v)
13: struct_equiv.dgCMatrix(methods::as(graph[[i]], "dgCMatrix"), v, inf.replace, groupvar, ...)
14: struct_equiv.list(graph, v, inf.replace, groupvar, ...)
15: struct_equiv(graph, groupvar = groupvar, ...)
16: lapply(struct_equiv(graph, groupvar = groupvar, ...), "[[", "SE")
17: exposure(diffnet, alt.graph = "se", valued = TRUE)
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.22.6
Check: examples
Result: ERROR
Running examples in ‘netdiffuseR-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: exposure
> ### Title: Ego exposure
> ### Aliases: exposure
> ### Keywords: univar
>
> ### ** Examples
>
> # Calculating lagged exposure -----------------------------------------------
>
> set.seed(8)
> graph <- rdiffnet(20, 4)
Warning in (function (graph, p, algorithm = "endpoints", both.ends = FALSE, :
The option -copy.first- is set to TRUE. In this case, the first graph will be treated as a baseline, and thus, networks after T=1 will be replaced with T-1.
>
> expo0 <- exposure(graph)
> expo1 <- exposure(graph, lags = 1)
>
> # These should be equivalent
> stopifnot(all(expo0[, -4] == expo1[, -1])) # No stop!
>
>
> # Calculating the exposure based on Structural Equivalence ------------------
> set.seed(113132)
> graph <- rdiffnet(100, 4)
Warning in (function (graph, p, algorithm = "endpoints", both.ends = FALSE, :
The option -copy.first- is set to TRUE. In this case, the first graph will be treated as a baseline, and thus, networks after T=1 will be replaced with T-1.
>
> SE <- lapply(struct_equiv(graph), "[[", "SE")
> SE <- lapply(SE, function(x) {
+ x <- 1/x
+ x[!is.finite(x)] <- 0
+ x
+ })
>
>
> # These three lines are equivalent to:
> expo_se2 <- exposure(graph, alt.graph="se", valued=TRUE)
> # Notice that we are setting valued=TRUE, but this is not necesary since when
> # alt.graph = "se" the function checks this to be setted equal to TRUE
>
> # Weighted Exposure using degree --------------------------------------------
> eDE <- exposure(graph, attrs=dgr(graph))
>
> # Which is equivalent to
> graph[["deg"]] <- dgr(graph)
> eDE2 <- exposure(graph, attrs="deg")
>
> # Comparing using incoming edges -------------------------------------------
> eIN <- exposure(graph, outgoing=FALSE)
>
> # Structral equivalence for different communities ---------------------------
> data(medInnovationsDiffNet)
>
> # Only using 4 time slides, this is for convenience
> medInnovationsDiffNet <- medInnovationsDiffNet[, , 1:4]
>
> # METHOD 1: Using the c.diffnet method:
>
> # Creating subsets by city
> cities <- unique(medInnovationsDiffNet[["city"]])
>
> diffnet <- medInnovationsDiffNet[medInnovationsDiffNet[["city"]] == cities[1]]
> diffnet[["expo_se"]] <- exposure(diffnet, alt.graph="se", valued=TRUE)
*** caught segfault ***
address (nil), cause 'unknown'
Traceback:
1: .nextMethod(.Object = .Object, ... = ...)
2: callNextMethod()
3: initialize(value, ...)
4: initialize(value, ...)
5: new("dgTMatrix", Dim = d, Dimnames = dn, i = i, j = j, x = x)
6: newTMat(i = c(ij1[, 1], ij2[, 1]), j = c(ij1[, 2], ij2[, 2]), x = if (Generic == "+") c(e1@x, e2@x) else c(e1@x, -e2@x))
7: .M2C(newTMat(i = c(ij1[, 1], ij2[, 1]), j = c(ij1[, 2], ij2[, 2]), x = if (Generic == "+") c(e1@x, e2@x) else c(e1@x, -e2@x)))
8: .Arith.Csparse(e1, e2, .Generic, class. = "dgCMatrix")
9: d[, ids[, 1]] - d[, ids[, 2]]
10: d[, ids[, 1]] - d[, ids[, 2]]
11: euclidean_distance(gdist)
12: struct_equiv_new(geod, v)
13: struct_equiv.dgCMatrix(methods::as(graph[[i]], "dgCMatrix"), v, inf.replace, groupvar, ...)
14: struct_equiv.list(graph, v, inf.replace, groupvar, ...)
15: struct_equiv(graph, groupvar = groupvar, ...)
16: lapply(struct_equiv(graph, groupvar = groupvar, ...), "[[", "SE")
17: exposure(diffnet, alt.graph = "se", valued = TRUE)
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault
Flavors: r-patched-linux-x86_64, r-release-linux-x86_64
Version: 1.22.6
Check: installed package size
Result: NOTE
installed size is 9.9Mb
sub-directories of 1Mb or more:
doc 2.5Mb
libs 5.5Mb
Flavors: r-release-macos-arm64, r-release-macos-x86_64, r-oldrel-macos-arm64, r-oldrel-macos-x86_64
Version: 1.22.6
Flags: --no-vignettes
Check: installed package size
Result: NOTE
installed size is 5.8Mb
sub-directories of 1Mb or more:
doc 2.5Mb
libs 1.5Mb
Flavors: r-release-windows-x86_64, r-oldrel-windows-x86_64
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13