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, 10)
> 
> SE <- lapply(struct_equiv(graph), "[[", "SE")
> SE <- lapply(SE, function(x) {
+    x <- 1/x
+    x[!is.finite(x)] <- 0
+    x
+ })
> 
> # Recall setting valued equal to TRUE!
> expo_se <- exposure(graph, alt.graph=SE , valued=TRUE)

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

Traceback:
 1: match.call(methodFun, mcall, expand.dots = FALSE, envir = dotsenv)
 2: callNextMethod()
 3: methods:::loadMethod(new("MethodWithNext", .Data = function (.Object,     ...) {    .Object <- callNextMethod()    if (length(args <- list(...)) && any(nzchar(snames <- names(args))) &&         "Dimnames" %in% snames)         .Object@Dimnames <- .fixupDimnames(.Object@Dimnames)    .Object}, nextMethod = new("derivedDefaultMethod", .Data = function (.Object,     ...) {    args <- list(...)    if (length(args)) {        Class <- class(.Object)        if (!is.na(match(Class, .BasicClasses)))             return(newBasic(Class, ...))        ClassDef <- getClass(Class)        snames <- allNames(args)        which <- nzchar(snames)        elements <- args[which]        supers <- args[!which]        thisExtends <- names(ClassDef@contains)        slotDefs <- ClassDef@slots        dataPart <- slotDefs[[".Data"]]        if (is.null(dataPart))             dataPart <- "missing"        if (length(supers)) {            for (i in rev(seq_along(supers))) {                obj <- supers[[i]]                Classi <- class(obj)                if (length(Classi) > 1L)                   Classi <- Classi[[1L]]                if (.identC(Classi, Class))                   .Object <- obj                else if (extends(Classi, Class))                   .Object <- as(obj, Class, strict = FALSE)                else if (extends(Class, Classi))                   as(.Object, Classi) <- obj                else if (extends(Classi, dataPart))                   .Object@.Data <- obj                else {                  extendsi <- extends(Classi)[-1L]                  which <- match(thisExtends, extendsi)                  which <- seq_along(which)[!is.na(which)]                  if (length(which)) {                    Classi <- thisExtends[which[1L]]                    as(.Object, Classi) <- obj                  }                  else stop(gettextf("cannot use object of class %s in new():  class %s does not extend that class",                     dQuote(Classi), dQuote(Class)), domain = NA)                }            }        }        if (length(elements)) {            snames <- names(elements)            if (anyDuplicated(snames))                 stop(gettextf("duplicated slot names: %s", paste(sQuote(snames[duplicated(snames)]),                   collapse = ", ")), domain = NA)            which <- match(snames, names(slotDefs))            if (anyNA(which))                 stop(sprintf(ngettext(sum(is.na(which)), "invalid name for slot of class %s: %s",                   "invalid names for slots of class %s: %s"),                   dQuote(Class), paste(snames[is.na(which)],                     collapse = ", ")), domain = NA)            firstTime <- TRUE            for (i in seq_along(snames)) {                slotName <- snames[[i]]                slotClass <- slotDefs[[slotName]]                slotClassDef <- getClassDef(slotClass, package = packageSlot(slotClass))                slotVal <- elements[[i]]                if (!.identC(class(slotVal), slotClass) && !is.null(slotClassDef)) {                  valClass <- class(slotVal)                  valClassDef <- getClassDef(valClass, package = ClassDef@package)                  if (!identical(possibleExtends(valClass, slotClass,                     valClassDef, slotClassDef), FALSE))                     slotVal <- as(slotVal, slotClass, strict = FALSE)                }                if (firstTime) {                  slot(.Object, slotName, check = FALSE) <- slotVal                  firstTime <- FALSE                }                else {                  `slot<-`(.Object, slotName, check = FALSE,                     slotVal)                }            }        }        validObject(.Object)    }    .Object}, target = new("signature", .Data = "Matrix", names = ".Object",     package = "methods"), defined = new("signature", .Data = "ANY",     names = ".Object", package = "methods"), generic = "initialize"),     excluded = list("Matrix"), target = new("signature", .Data = "dgeMatrix",         names = ".Object", package = "Matrix"), defined = new("signature",         .Data = "Matrix", names = ".Object", package = "Matrix"),     generic = "initialize"), "initialize", <environment>)
 4: methods:::loadMethod(new("MethodWithNext", .Data = function (.Object,     ...) {    .Object <- callNextMethod()    if (length(args <- list(...)) && any(nzchar(snames <- names(args))) &&         "Dimnames" %in% snames)         .Object@Dimnames <- .fixupDimnames(.Object@Dimnames)    .Object}, nextMethod = new("derivedDefaultMethod", .Data = function (.Object,     ...) {    args <- list(...)    if (length(args)) {        Class <- class(.Object)        if (!is.na(match(Class, .BasicClasses)))             return(newBasic(Class, ...))        ClassDef <- getClass(Class)        snames <- allNames(args)        which <- nzchar(snames)        elements <- args[which]        supers <- args[!which]        thisExtends <- names(ClassDef@contains)        slotDefs <- ClassDef@slots        dataPart <- slotDefs[[".Data"]]        if (is.null(dataPart))             dataPart <- "missing"        if (length(supers)) {            for (i in rev(seq_along(supers))) {                obj <- supers[[i]]                Classi <- class(obj)                if (length(Classi) > 1L)                   Classi <- Classi[[1L]]                if (.identC(Classi, Class))                   .Object <- obj                else if (extends(Classi, Class))                   .Object <- as(obj, Class, strict = FALSE)                else if (extends(Class, Classi))                   as(.Object, Classi) <- obj                else if (extends(Classi, dataPart))                   .Object@.Data <- obj                else {                  extendsi <- extends(Classi)[-1L]                  which <- match(thisExtends, extendsi)                  which <- seq_along(which)[!is.na(which)]                  if (length(which)) {                    Classi <- thisExtends[which[1L]]                    as(.Object, Classi) <- obj                  }                  else stop(gettextf("cannot use object of class %s in new():  class %s does not extend that class",                     dQuote(Classi), dQuote(Class)), domain = NA)                }            }        }        if (length(elements)) {            snames <- names(elements)            if (anyDuplicated(snames))                 stop(gettextf("duplicated slot names: %s", paste(sQuote(snames[duplicated(snames)]),                   collapse = ", ")), domain = NA)            which <- match(snames, names(slotDefs))            if (anyNA(which))                 stop(sprintf(ngettext(sum(is.na(which)), "invalid name for slot of class %s: %s",                   "invalid names for slots of class %s: %s"),                   dQuote(Class), paste(snames[is.na(which)],                     collapse = ", ")), domain = NA)            firstTime <- TRUE            for (i in seq_along(snames)) {                slotName <- snames[[i]]                slotClass <- slotDefs[[slotName]]                slotClassDef <- getClassDef(slotClass, package = packageSlot(slotClass))                slotVal <- elements[[i]]                if (!.identC(class(slotVal), slotClass) && !is.null(slotClassDef)) {                  valClass <- class(slotVal)                  valClassDef <- getClassDef(valClass, package = ClassDef@package)                  if (!identical(possibleExtends(valClass, slotClass,                     valClassDef, slotClassDef), FALSE))                     slotVal <- as(slotVal, slotClass, strict = FALSE)                }                if (firstTime) {                  slot(.Object, slotName, check = FALSE) <- slotVal                  firstTime <- FALSE                }                else {                  `slot<-`(.Object, slotName, check = FALSE,                     slotVal)                }            }        }        validObject(.Object)    }    .Object}, target = new("signature", .Data = "Matrix", names = ".Object",     package = "methods"), defined = new("signature", .Data = "ANY",     names = ".Object", package = "methods"), generic = "initialize"),     excluded = list("Matrix"), target = new("signature", .Data = "dgeMatrix",         names = ".Object", package = "Matrix"), defined = new("signature",         .Data = "Matrix", names = ".Object", package = "Matrix"),     generic = "initialize"), "initialize", <environment>)
 5: initialize(value, ...)
 6: new("dgeMatrix", Dim = d, Dimnames = dn, x = callGeneric(e1@x,     e2@x))
 7: ans/(graph %*% attrs + 1e-20)
 8: ans/(graph %*% attrs + 1e-20)
 9: as.vector(ans/(graph %*% attrs + 1e-20))
10: .exposure(graph[[i]], cumadopt[, i, drop = FALSE], attrs[, i,     drop = FALSE], outgoing, valued, normalized, self)
11: exposure_for(graph, cumadopt, attrs, outgoing, valued, normalized,     self, lags)
12: exposure.list(as_spmat(graph), cumadopt, attrs, outgoing, valued,     normalized, self, lags)
13: exposure(graph, alt.graph = SE, valued = TRUE)
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault