Useq seq() for numeric sequence

epiverse-trace · Feb 8, 2024 · 3a8b492 · 3a8b492
1 parent eb7151d
commit 3a8b492
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/model_ebola.R b/R/model_ebola.R
@@ -27,7 +27,7 @@ prob_discrete_erlang <- function(shape, rate) {
     one_sub_cumulative_probs[n_bin] <- sum(total)
     cumulative_prob <- 1 - one_sub_cumulative_probs[n_bin]
   }
-  one_sub_cumulative_probs <- c(1, one_sub_cumulative_probs[1:n_bin])
+  one_sub_cumulative_probs <- c(1, one_sub_cumulative_probs[seq(n_bin)])
 
   density_prob <-
     utils::head(one_sub_cumulative_probs, -1) -