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 0x55500000004, cause 'memory not mapped'

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