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

> ### Name: rdiffnet
> ### Title: Random diffnet network
> ### Aliases: rdiffnet rdiffnet_multiple
> 
> ### ** Examples
> 
> # Asimple example -----------------------------------------------------------
> set.seed(123)
> z <- rdiffnet(100,10)
> z
Dynamic network of class -diffnet-
 Name               : A diffusion network
 Behavior           : Random contagion
 # of nodes         : 100 (1, 2, 3, 4, 5, 6, 7, 8, ...)
 # of time periods  : 10 (1 - 10)
 Type               : directed
 Final prevalence   : 0.19
 Static attributes  : real_threshold (1)
 Dynamic attributes : -
> summary(z)
Diffusion network summary statistics
Name     : A diffusion network
Behavior : Random contagion
-----------------------------------------------------------------------------
 Period   Adopters   Cum Adopt. (%)   Hazard Rate   Density   Moran's I (sd)  
-------- ---------- ---------------- ------------- --------- ---------------- 
       1          5         5 (0.05)             -      0.01 -0.02 (0.06)     
       2          2         7 (0.07)          0.02      0.01  0.14 (0.07) **  
       3          0         7 (0.07)          0.00      0.01  0.14 (0.06) **  
       4          1         8 (0.08)          0.01      0.01  0.11 (0.06) *   
       5          1         9 (0.09)          0.01      0.01  0.25 (0.07) *** 
       6          2        11 (0.11)          0.02      0.01  0.14 (0.06) **  
       7          1        12 (0.12)          0.01      0.01  0.15 (0.06) *** 
       8          1        13 (0.13)          0.01      0.01  0.09 (0.07)     
       9          3        16 (0.16)          0.03      0.01  0.22 (0.07) *** 
      10          3        19 (0.19)          0.04      0.01  0.26 (0.07) *** 
-----------------------------------------------------------------------------
 Left censoring  : 0.05 (5)
 Right centoring : 0.81 (81)
 # of nodes      : 100

 Moran's I was computed on contemporaneous autocorrelation using 1/geodesic
 values. Significane levels  *** <= .01, ** <= .05, * <= .1.
> 
> # A more complex example: Adopt if at least one neighbor has adopted --------
> y <- rdiffnet(100, 10, threshold.dist=function(x) 1,
+     exposure.args=list(valued=FALSE, normalized=FALSE))
> 
> # Re thinking the Adoption of Tetracycline ----------------------------------
> newMI <- rdiffnet(seed.graph = medInnovationsDiffNet$graph,
+  threshold.dist = threshold(medInnovationsDiffNet), rewire=FALSE)
> 
> 
> # Simulation study comparing the diffusion with diff sets of seed nodes -----
> 
> # Random seed nodes
> set.seed(1)
> ans0 <- rdiffnet_multiple(R=50, statistic=function(x) sum(!is.na(x$toa)),
+     n = 100, t = 4, seed.nodes = "random", stop.no.diff=FALSE)
Warning in netdiffuseR::rdiffnet(...) : No diffusion in this network.
> 
> # Central seed nodes
> set.seed(1)
> ans1 <- rdiffnet_multiple(R=50, statistic=function(x) sum(!is.na(x$toa)),
+     n = 100, t = 4, seed.nodes = "central", stop.no.diff=FALSE)