fixed simulation index allocation bug, closes #89

epiverse-trace · Mar 11, 2024 · 6161e1e · 6161e1e
1 parent 7b9a2d5
commit 6161e1e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/sim_network_bp.R b/R/sim_network_bp.R
@@ -77,7 +77,7 @@
             which.min(generation):(which.min(generation) + contacts[i] - 1)
 
           # grow vectors if idx exceeds length
-          if (max(vec_idx) > length(generation)) {
+          if (max(vec_idx) >= length(generation)) {
             ancestor <- c(ancestor, vector(mode = "integer", 1e5))
             generation <- c(generation, vector(mode = "integer", 1e5))
             infected <- c(infected, vector(mode = "integer", 1e5))