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

> ### Name: exposure
> ### Title: Ego exposure
> ### Aliases: exposure 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)
> 
> # 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)
> 
> # 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)
> 
> for (v in cities[-1]) {
+    diffnet_v <- medInnovationsDiffNet[medInnovationsDiffNet[["city"]] == v]
+    diffnet_v[["expo_se"]] <- exposure(diffnet_v, alt.graph="se", valued=TRUE)
+    diffnet <- c(diffnet, diffnet_v)
+ }

This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.