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")

 *** caught segfault ***
address 0x726666696476, cause 'memory not mapped'

Traceback:
 1: asMethod(object)
 2: as(.TM.repl.i.mat(as(x, "TsparseMatrix"), i = i, value = value),     "CsparseMatrix")
 3: `[<-`(`*tmp*`, cbind(1:nrow(z_ik), ids[, 1]), value = 0)
 4: `[<-`(`*tmp*`, cbind(1:nrow(z_ik), ids[, 1]), value = 0)
 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$graph, v, inf.replace, groupvar, ...)
 9: struct_equiv(graph)
10: lapply(struct_equiv(graph), "[[", "SE")
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault
Examples with CPU (user + system) or elapsed time > 5s
              user system elapsed
diffusionMap 8.137  0.114   9.976