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

> ### Name: origin
> ### Title: Origin Estimation for Propagation Processes on Complex Networks
> ### Aliases: origin origin_edm origin_backtracking origin_centrality
> ###   origin_bayesian
> 
> ### ** Examples
> 
> data(delayGoe)
> 
> # compute effective distance
> data(ptnGoe)
> goenet <- igraph::as_adjacency_matrix(ptnGoe, sparse=FALSE)
> p <- goenet/rowSums(goenet)
> eff <- eff_dist(p)
Computing the effective distance between 257 nodes:
 1...................................................................................................
 100...................................................................................................
 200.........................................................done
> # apply effective distance median source estimation
> om <- origin(events=delayGoe[10,-c(1:2)], type='edm', distance=eff)
> summary(om)
Effective distance median origin estimation:

estimated node of origin 91: X.Gotthelf.Leimbach.Strasse 

auxiliary variables:
       id          events            wmean             wvar       
 Min.   :  1   Min.   : 0.0000   Min.   : 5.482   Min.   :0.3987  
 1st Qu.: 65   1st Qu.: 0.0000   1st Qu.:21.572   1st Qu.:2.2761  
 Median :129   Median : 0.0000   Median :27.345   Median :2.4050  
 Mean   :129   Mean   : 0.6459   Mean   :26.948   Mean   :2.4989  
 3rd Qu.:193   3rd Qu.: 0.0000   3rd Qu.:33.359   3rd Qu.:2.9986  
 Max.   :257   Max.   :46.0000   Max.   :47.762   Max.   :6.2052  
     mdist      
 Min.   :14.34  
 1st Qu.:20.75  
 Median :24.23  
 Mean   :24.92  
 3rd Qu.:28.88  
 Max.   :39.16  
> plot(om, 'mdist',start=1)
> plot(om, 'wvar',start=1)
> performance(om, start=1, graph=ptnGoe)
                  start                         est  hitt rank spj dist
1 X.Adolf.Hoyer.Strasse X.Gotthelf.Leimbach.Strasse FALSE    2   2 1332
> 
> # backtracking origin estimation (Manitz et al., 2016)
> ob <- origin(events=delayGoe[10,-c(1:2)], type='backtracking', graph=ptnGoe)
Error in if (V(graph)[current_node]$events > 0 | !start_with_event_node) { : 
  argument is of length zero
Calls: origin -> origin_backtracking
Execution halted