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:
                                                   name id events    wmean
X.Gotthelf.Leimbach.Strasse X.Gotthelf.Leimbach.Strasse 91     14 5.482425
                                wvar    mdist
X.Gotthelf.Leimbach.Strasse 1.496672 25.81284

auxiliary variables:
     name                 id          events            wmean       
 Length:257         Min.   :  1   Min.   : 0.0000   Min.   : 5.482  
 Class :character   1st Qu.: 65   1st Qu.: 0.0000   1st Qu.:21.572  
 Mode  :character   Median :129   Median : 0.0000   Median :27.345  
                    Mean   :129   Mean   : 0.6459   Mean   :26.948  
                    3rd Qu.:193   3rd Qu.: 0.0000   3rd Qu.:33.359  
                    Max.   :257   Max.   :46.0000   Max.   :47.762  
      wvar            mdist      
 Min.   :0.3987   Min.   :14.34  
 1st Qu.:2.2761   1st Qu.:20.75  
 Median :2.4050   Median :24.23  
 Mean   :2.4989   Mean   :24.92  
 3rd Qu.:2.9986   3rd Qu.:28.88  
 Max.   :6.2052   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