Running examples in ‘netdiffuseR-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: egonet_attrs
> ### Title: Retrieve alter's attributes (network effects)
> ### Aliases: egonet_attrs
> 
> ### ** Examples
> 
> # Simple example with diffnet -----------------------------------------------
> set.seed(1001)
> diffnet <- rdiffnet(150, 20, seed.graph="small-world")
> 
> # Adding attributes
> indeg <- dgr(diffnet, cmode="indegree")
> head(indeg)
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
1 1 1 2 1 2 1 1 1 1  1  1  1  1  2  1  1  2  1  2  1
2 1 1 1 1 1 1 1 1 1  1  1  1  1  2  1  1  1  1  1  1
3 2 2 2 2 2 1 3 1 2  2  1  2  2  3  3  2  2  3  2  3
4 3 2 4 3 2 3 3 3 3  2  2  3  1  2  3  3  3  2  3  3
5 5 6 4 4 4 5 4 6 4  5  5  5  5  6  7  6  6  4  5  5
6 2 1 2 2 2 2 2 2 2  2  3  3  2  2  2  2  2  2  2  2
> diffnet[["indegree"]] <- indeg
> 
> # Retrieving egonet's attributes (vertices 1 and 20)
> egonet_attrs(diffnet, V=c(1,20))
$`1`
$`1`$`1`
     id value per toa real_threshold indegree
2     2     1   1  15      0.8236725        1
150 150     1   1  12      0.5957844        2

$`1`$`20`
   id value per toa real_threshold indegree
19 19     1   1   7      0.4648842        2
21 21     1   1  13      0.6240292        1


$`2`
$`2`$`1`
     id value per toa real_threshold indegree
2     2     1   2  15      0.8236725        1
150 150     1   2  12      0.5957844        2

$`2`$`20`
   id value per toa real_threshold indegree
19 19     1   2   7      0.4648842        3
21 21     1   2  13      0.6240292        2


$`3`
$`3`$`1`
     id value per toa real_threshold indegree
2     2     1   3  15      0.8236725        1
150 150     1   3  12      0.5957844        2

$`3`$`20`
   id value per toa real_threshold indegree
19 19     1   3   7      0.4648842        3
21 21     1   3  13      0.6240292        1


$`4`
$`4`$`1`
     id value per toa real_threshold indegree
2     2     1   4  15      0.8236725        1
150 150     1   4  12      0.5957844        2

$`4`$`20`
   id value per toa real_threshold indegree
21 21     1   4  13      0.6240292        1
90 90     1   4  17      0.2246004        3


$`5`
$`5`$`1`
     id value per toa real_threshold indegree
2     2     1   5  15      0.8236725        1
150 150     1   5  12      0.5957844        1

$`5`$`20`
   id value per toa real_threshold indegree
19 19     1   5   7      0.4648842        2
21 21     1   5  13      0.6240292        2


$`6`
$`6`$`1`
     id value per toa real_threshold indegree
2     2     1   6  15      0.8236725        1
150 150     1   6  12      0.5957844        2

$`6`$`20`
   id value per toa real_threshold indegree
19 19     1   6   7      0.4648842        2
21 21     1   6  13      0.6240292        1


$`7`
$`7`$`1`
     id value per toa real_threshold indegree
2     2     1   7  15      0.8236725        1
150 150     1   7  12      0.5957844        2

$`7`$`20`
     id value per toa real_threshold indegree
19   19     1   7   7      0.4648842        3
101 101     1   7  15      0.5670383        3


$`8`
$`8`$`1`
     id value per toa real_threshold indegree
2     2     1   8  15      0.8236725        1
150 150     1   8  12      0.5957844        2

$`8`$`20`
   id value per toa real_threshold indegree
19 19     1   8   7      0.4648842        2
21 21     1   8  13      0.6240292        1


$`9`
$`9`$`1`
     id value per toa real_threshold indegree
2     2     1   9  15      0.8236725        1
150 150     1   9  12      0.5957844        2

$`9`$`20`
   id value per toa real_threshold indegree
19 19     1   9   7      0.4648842        2
21 21     1   9  13      0.6240292        1


$`10`
$`10`$`1`
     id value per toa real_threshold indegree
2     2     1  10  15      0.8236725        1
150 150     1  10  12      0.5957844        3

$`10`$`20`
   id value per toa real_threshold indegree
19 19     1  10   7      0.4648842        2
21 21     1  10  13      0.6240292        1


$`11`
$`11`$`1`
     id value per toa real_threshold indegree
2     2     1  11  15      0.8236725        1
111 111     1  11  11      0.8859662        3

$`11`$`20`
   id value per toa real_threshold indegree
19 19     1  11   7      0.4648842        3
21 21     1  11  13      0.6240292        1


$`12`
$`12`$`1`
     id value per toa real_threshold indegree
2     2     1  12  15      0.8236725        1
150 150     1  12  12      0.5957844        3

$`12`$`20`
   id value per toa real_threshold indegree
19 19     1  12   7      0.4648842        1
21 21     1  12  13      0.6240292        1


$`13`
$`13`$`1`
     id value per toa real_threshold indegree
2     2     1  13  15      0.8236725        1
150 150     1  13  12      0.5957844        2

$`13`$`20`
   id value per toa real_threshold indegree
19 19     1  13   7      0.4648842        3
21 21     1  13  13      0.6240292        1


$`14`
$`14`$`1`
     id value per toa real_threshold indegree
2     2     1  14  15      0.8236725        2
150 150     1  14  12      0.5957844        2

$`14`$`20`
   id value per toa real_threshold indegree
19 19     1  14   7      0.4648842        1
21 21     1  14  13      0.6240292        2


$`15`
$`15`$`1`
   id value per toa real_threshold indegree
2   2     1  15  15      0.8236725        1
99 99     1  15   4      0.1587581        3

$`15`$`20`
   id value per toa real_threshold indegree
19 19     1  15   7      0.4648842        3
21 21     1  15  13      0.6240292        1


$`16`
$`16`$`1`
     id value per toa real_threshold indegree
2     2     1  16  15      0.8236725        1
150 150     1  16  12      0.5957844        2

$`16`$`20`
   id value per toa real_threshold indegree
19 19     1  16   7      0.4648842        2
21 21     1  16  13      0.6240292        1


$`17`
$`17`$`1`
   id value per toa real_threshold indegree
2   2     1  17  15      0.8236725        1
89 89     1  17  16      0.7612560        4

$`17`$`20`
   id value per toa real_threshold indegree
19 19     1  17   7      0.4648842        2
21 21     1  17  13      0.6240292        1


$`18`
$`18`$`1`
     id value per toa real_threshold indegree
35   35     1  18  15      0.6328367        3
150 150     1  18  12      0.5957844        2

$`18`$`20`
   id value per toa real_threshold indegree
19 19     1  18   7      0.4648842        2
21 21     1  18  13      0.6240292        1


$`19`
$`19`$`1`
     id value per toa real_threshold indegree
2     2     1  19  15      0.8236725        1
150 150     1  19  12      0.5957844        2

$`19`$`20`
   id value per toa real_threshold indegree
19 19     1  19   7      0.4648842        2
21 21     1  19  13      0.6240292        1


$`20`
$`20`$`1`
     id value per toa real_threshold indegree
2     2     1  20  15      0.8236725        1
150 150     1  20  12      0.5957844        2

$`20`$`20`
   id value per toa real_threshold indegree
18 18     1  20  NA      0.9956532        2
19 19     1  20   7      0.4648842        3


> 
> # Example with a static network ---------------------------------------------
> 
> set.seed(1231)
> n <- 20
> net <- rgraph_ws(n = n, k = 4, p = .5)
> someattr <- matrix(rnorm(n * 2), ncol= 2, dimnames = list(NULL, c("a", "b")))
> 
> # Maximum of -a- in ego network
> ans <- egonet_attrs(net, someattr, fun = function(x) max(x[,"a"]))

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

Traceback:
 1: cmpTag(n, cb)
 2: cmpCallArgs(args, cb, cntxt)
 3: cmpCallSymFun(fun, args, call, cb, cntxt)
 4: cmpCall(e, cb, cntxt)
 5: cmp(cases[[i]], cb, cntxt)
 6: h(e, cb, cntxt)
 7: tryInline(call, cb, cntxt)
 8: cmpCall(e, cb, cntxt)
 9: cmp(subexp, cb, cntxt, setloc = FALSE)
10: h(e, cb, cntxt)
11: tryInline(call, cb, cntxt)
12: cmpCall(e, cb, cntxt)
13: cmp(e, cb, cntxt, setloc = FALSE)
14: genCode(body(f), ncntxt, loc = loc)
15: cmpfun(f)
16: doTryCatch(return(expr), name, parentenv, handler)
17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
18: tryCatchList(expr, classes, parentenv, handlers)
19: tryCatch(cmpfun(f), error = function(e) {    notifyCompilerError(paste(e$message, "at", deparse(e$call)))    f})
20: compiler:::tryCmpfun(function (graph, attrs, V = NULL, direction = "outgoing",     fun = function(x) x, as.df = FALSE, self = getOption("diffnet.self"),     valued = getOption("diffnet.valued")) {    if (direction == "incoming")         outer <- FALSE    else if (direction == "outgoing")         outer <- TRUE    else stop("-direction- must be either 'incoming' or 'outgoing'")    if (!inherits(graph, "diffnet"))         if (missing(attrs))             stop("If -graph- is not of class 'diffnet', -attrs- must be specified.")    if (inherits(graph, "diffnet")) {        if (missing(attrs))             attrs <- diffnet.attrs(graph)        else {            if (!inherits(attrs, "list"))                 stop("-attrs- must be a list.")            if (length(attrs) != graph$meta$nper)                 stop("-attrs-, ", length(attrs), " elements, must have as many elements as time periods ",                   graph$meta$nper, ".")        }    }    if (!length(V))         V <- 1L:nnodes(graph)    switch(class(graph), diffnet = egonet_attrs.list(graph$graph,         attrs, if (!length(V)) 1:graph$meta$n else V, outer,         fun, as.df, self, valued), list = egonet_attrs.list(graph,         attrs, V, outer, fun, as.df, self, valued), matrix = egonet_attrs.matrix(as_spmat(graph),         attrs, V, outer, fun, as.df, self, valued), dgCMatrix = egonet_attrs.matrix(graph,         attrs, V, outer, fun, as.df, self, valued), array = egonet_attrs.array(graph,         attrs, V, outer, fun, as.df, self, valued), stopifnot_graph(graph))})
21: egonet_attrs(net, someattr, fun = function(x) max(x[, "a"]))
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault