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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: CompareExtinctions
> ### Title: Comparison of Null hypothesis with other extinction histories
> ### Aliases: CompareExtinctions
> 
> ### ** Examples
> 
> data("net")
> History <- Mostconnected(Network = net)
[1] 1
[1] 2
[1] 3
[1] 4
> 
> NullHyp <- RandomExtinctions(Network = net, nsim = 100)
1
2
3
4
5
6
7
Simulation 1 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 2 of 100 ready
1
2
3
4
5
6
Simulation 3 of 100 ready
1
2
3
4
5
Simulation 4 of 100 ready
1
2
3
4
5
6
Simulation 5 of 100 ready
1
2
3
4
5
6
7
8
Simulation 6 of 100 ready
1
2
3
4
5
6
Simulation 7 of 100 ready
1
2
3
4
5
6
7
Simulation 8 of 100 ready
1
2
3
4
5
6
7
Simulation 9 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 10 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 11 of 100 ready
1
2
3
4
5
6
7
Simulation 12 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 13 of 100 ready
1
2
3
4
5
6
7
8
Simulation 14 of 100 ready
1
2
3
4
5
6
7
8
Simulation 15 of 100 ready
1
2
3
4
5
6
Simulation 16 of 100 ready
1
2
3
4
5
6
7
Simulation 17 of 100 ready
1
2
3
4
5
6
Simulation 18 of 100 ready
1
2
3
4
5
6
Simulation 19 of 100 ready
1
2
3
4
5
6
Simulation 20 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 21 of 100 ready
1
2
3
4
5
6
7
8
Simulation 22 of 100 ready
1
2
3
4
5
6
7
8
Simulation 23 of 100 ready
1
2
3
4
5
6
7
8
Simulation 24 of 100 ready
1
2
3
4
5
6
7
Simulation 25 of 100 ready
1
2
3
4
5
6
7
8
Simulation 26 of 100 ready
1
2
3
4
5
Simulation 27 of 100 ready
1
2
3
4
5
6
Simulation 28 of 100 ready
1
2
3
4
5
Simulation 29 of 100 ready
1
2
3
4
5
6
7
8
Simulation 30 of 100 ready
1
2
3
4
5
6
7
Simulation 31 of 100 ready
1
2
3
4
5
Simulation 32 of 100 ready
1
2
3
4
5
6
7
8
Simulation 33 of 100 ready
1
2
3
4
5
6
7
8
Simulation 34 of 100 ready
1
2
3
4
5
6
7
Simulation 35 of 100 ready
1
2
3
4
Simulation 36 of 100 ready
1
2
3
4
5
6
7
8
Simulation 37 of 100 ready
1
2
3
4
5
6
Simulation 38 of 100 ready
1
2
3
4
5
Simulation 39 of 100 ready
1
2
3
4
5
6
7
8
Simulation 40 of 100 ready
1
2
3
4
5
6
Simulation 41 of 100 ready
1
2
3
4
5
6
7
8
Simulation 42 of 100 ready
1
2
3
4
5
6
Simulation 43 of 100 ready
1
2
3
4
5
6
7
Simulation 44 of 100 ready
1
2
3
4
5
Simulation 45 of 100 ready
1
2
3
4
5
6
7
Simulation 46 of 100 ready
1
2
3
4
5
6
7
8
Simulation 47 of 100 ready
1
2
3
4
5
6
7
8
Simulation 48 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 49 of 100 ready
1
2
3
4
5
6
Simulation 50 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 51 of 100 ready
1
2
3
4
5
6
7
8
Simulation 52 of 100 ready
1
2
3
4
5
6
7
8
Simulation 53 of 100 ready
1
2
3
4
5
6
7
Simulation 54 of 100 ready
1
2
3
4
5
Simulation 55 of 100 ready
1
2
3
4
5
6
7
Simulation 56 of 100 ready
1
2
3
4
5
6
Simulation 57 of 100 ready
1
2
3
4
5
6
7
Simulation 58 of 100 ready
1
2
3
4
5
6
Simulation 59 of 100 ready
1
2
3
4
5
6
7
Simulation 60 of 100 ready
1
2
3
4
5
6
7
8
Simulation 61 of 100 ready
1
2
3
4
5
Simulation 62 of 100 ready
1
2
3
4
5
6
7
Simulation 63 of 100 ready
1
2
3
4
5
Simulation 64 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 65 of 100 ready
1
2
3
4
5
6
Simulation 66 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 67 of 100 ready
1
2
3
4
5
6
7
Simulation 68 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 69 of 100 ready
1
2
3
4
5
6
7
8
Simulation 70 of 100 ready
1
2
3
4
5
6
Simulation 71 of 100 ready
1
2
3
4
5
6
Simulation 72 of 100 ready
1
2
3
4
5
6
7
8
Simulation 73 of 100 ready
1
2
3
4
5
Simulation 74 of 100 ready
1
2
3
4
5
6
7
8
Simulation 75 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 76 of 100 ready
1
2
3
4
5
6
7
Simulation 77 of 100 ready
1
2
3
4
5
6
7
Simulation 78 of 100 ready
1
2
3
4
5
6
7
Simulation 79 of 100 ready
1
2
3
4
5
6
Simulation 80 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 81 of 100 ready
1
2
3
4
5
6
Simulation 82 of 100 ready
1
2
3
4
5
6
7
Simulation 83 of 100 ready
1
2
3
4
5
6
7
8
9
Simulation 84 of 100 ready
1
2
3
4
5
Simulation 85 of 100 ready
1
2
3
4
5
6
7
8
Simulation 86 of 100 ready
1
2
3
4
5
6
7
Simulation 87 of 100 ready
1
2
3
4
5
6
7
Simulation 88 of 100 ready
1
2
3
4
5
6
7
Simulation 89 of 100 ready
1
2
3
4
5
6
7
Simulation 90 of 100 ready
1
2
3
4
5
6
Simulation 91 of 100 ready
1
2
3
4
5
6
7
8
Simulation 92 of 100 ready
1
2
3
4
Simulation 93 of 100 ready
1
2
3
4
5
6
7
8
Simulation 94 of 100 ready
1
2
3
4
5
6
7
Simulation 95 of 100 ready
1
2
3
4
5
6
7
Simulation 96 of 100 ready
1
2
3
4
5
6
7
8
Simulation 97 of 100 ready
1
2
3
4
5
6
7
Simulation 98 of 100 ready
1
2
3
4
5
6
7
8
Simulation 99 of 100 ready
1
2
3
4
5
6
Simulation 100 of 100 ready
> 
> CompareExtinctions(Nullmodel = NullHyp, Hypothesis = History)
Warning in chisq.test(x = Hypothesis$AccSecondaryExtinction, y = Nullmodel$sims$AccSecondaryExtinction[1:length(Hypothesis$AccSecondaryExtinction)]) :
  Chi-squared approximation may be incorrect
$Test
# A tibble: 1 x 4
  statistic p.value parameter method                    
      <dbl>   <dbl>     <int> <chr>                     
1         8   0.238         6 Pearson's Chi-squared test

$graph
Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... lapply -> FUN -> push.vp.viewport -> grid.Call.graphics
Execution halted