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 exposure
> ### Keywords: univar
> 
> ### ** Examples
> 
> # Calculating the exposure based on Structural Equivalence ------------------
> set.seed(113132)
> graph <- rdiffnet(100, 10)

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

Traceback:
 1: (function (cl, name, valueClass) {    ClassDef <- getClass(cl)    slotClass <- ClassDef@slots[[name]]    if (is.null(slotClass))         stop(gettextf("%s is not a slot in class %s", sQuote(name),             dQuote(cl)), domain = NA)    if (.identC(slotClass, valueClass))         return(TRUE)    ok <- possibleExtends(valueClass, slotClass, ClassDef2 = getClassDef(slotClass,         where = .classEnv(ClassDef)))    if (identical(ok, FALSE))         stop(gettextf("assignment of an object of class %s is not valid for @%s in an object of class %s; is(value, \"%s\") is not TRUE",             dQuote(valueClass), sQuote(name), dQuote(cl), slotClass),             domain = NA)    TRUE})("dgCMatrix", "x", "numeric")
 2: .exposure(graph[[i]], cumadopt[, i, drop = FALSE], attrs[, i,     drop = FALSE], outgoing, valued, normalized, self)
 3: exposure_for(graph, cumadopt, attrs, outgoing, valued, normalized,     self)
 4: exposure.list(graph, cumadopt, attrs, outgoing, valued, normalized,     self)
 5: (function (graph, cumadopt, attrs = NULL, alt.graph = NULL, outgoing = getOption("diffnet.outgoing",     TRUE), valued = getOption("diffnet.valued", FALSE), normalized = TRUE,     groupvar = NULL, self = getOption("diffnet.self"), ...) {    if (length(attrs) == 1 && inherits(attrs, "character")) {        if (!inherits(graph, "diffnet"))             stop("Specifying -attrs- as a character scalar is only valid for -diffnet- objects.")        attrs <- graph[[attrs]]        attrs <- if (inherits(attrs, "list"))             do.call(cbind, attrs)        else matrix(attrs, ncol = nslices(graph), nrow = nvertices(graph))    }    if (length(groupvar) == 1 && inherits(graph, "diffnet"))         groupvar <- graph[[groupvar]]    if (missing(cumadopt))         if (!inherits(graph, "diffnet")) {            stop("-cumadopt- should be provided when -graph- is not of class 'diffnet'")        }        else {            cumadopt <- toa_mat(graph)$cumadopt        }    if (inherits(graph, "diffnet"))         graph <- graph$graph    if (!length(attrs)) {        attrs <- matrix(1, ncol = ncol(cumadopt), nrow = nrow(cumadopt))    }    if (length(alt.graph)) {        graph <- if (inherits(alt.graph, "character")) {            if (alt.graph != "se")                 stop("Only character -alt.graph- value allowed is \"se\".")            se <- lapply(struct_equiv(graph, groupvar = groupvar,                 ...), "[[", "SE")            se <- lapply(se, function(x) {                x <- 1/x                x[!is.finite(x)] <- 0                x            })            if (!valued) {                warning("To use alt.graph=\"se\" -valued- has been switched to TRUE.")                valued <- TRUE            }            se        }        else {            if (inherits(alt.graph, "matrix"))                 alt.graph <- methods::as(alt.graph, "dgCMatrix")            if (inherits(alt.graph, "dgCMatrix")) {                warning("When -alt.graph- is static, will be repeated \"t\" times to fit the data.")                alt.graph <- lapply(1:length(graph), function(x) alt.graph)            }            if (!valued)                 warning("The -alt.graph- will be treated as 0/1 graph (value=FALSE).")            alt.graph        }    }    cls <- class(graph)    if ("array" %in% cls) {        exposure.array(graph, cumadopt, attrs, outgoing, valued,             normalized, self)    }    else if ("list" %in% cls) {        exposure.list(graph, cumadopt, attrs, outgoing, valued,             normalized, self)    }    else stopifnot_graph(graph)})(outgoing = TRUE, valued = FALSE, normalized = TRUE, graph = list(    `8` = <S4 object of class "dgCMatrix">), cumadopt = c(0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 0L, 1L, 0L, 0L, 1L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 1L, 0L, 1L, 1L, 0L, 1L, 0L, 0L, 1L, 0L, 1L, 0L, 1L, 0L, 1L, 0L, 1L, 0L, 1L, 1L, 0L))
 6: do.call(exposure, exposure.args)
 7: rdiffnet(100, 10)
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault