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)
> 
> 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)
> 
> 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: ..subscript.2ary(x, l[[1L]], l[[2L]], drop = drop[1L])
 2: .subscript.2ary(x, i, , drop = TRUE)
 3: d[ids[, 1], ]
 4: d[ids[, 1], ]
 5: euclidean_distance(gdist)
 6: struct_equiv_new(geod, v)
 7: struct_equiv.dgCMatrix(methods::as(graph[[i]], "dgCMatrix"),     v, inf.replace, groupvar, ...)
 8: struct_equiv.list(graph, v, inf.replace, groupvar, ...)
 9: struct_equiv(graph, groupvar = groupvar, ...)
10: lapply(struct_equiv(graph, groupvar = groupvar, ...), "[[", "SE")
11: exposure(diffnet, alt.graph = "se", valued = TRUE)
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault
Examples with CPU (user + system) or elapsed time > 5s
                            user system elapsed
diffusionMap               6.194  0.055   7.049
degree_adoption_diagnostic 4.840  0.071   5.583