Remove empty vector creation

epiverse-trace · Sep 15, 2023 · 703b4ce · 703b4ce
1 parent 4668a31
commit 703b4ce
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/estimate_severity.R b/R/estimate_severity.R
@@ -37,7 +37,6 @@ estimate_severity <- function(total_cases,
 
   # Calculate likelihood - use binomial for small samples and Poisson
   # approximation for larger numbers
-  lik <- numeric()
   if (total_cases < poisson_threshold) {
     lik <- log(choose(round(u_t * total_cases), total_deaths)) +
       (total_deaths * log(pprange)) +