Remove unused variable

epiverse-trace · Dec 15, 2023 · 9346f6a · 9346f6a
1 parent fe0e2e2
commit 9346f6a
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/R/visualisation.R b/R/visualisation.R
@@ -184,10 +184,6 @@ plot_foi <- function(seromodel_object,
     ggplot2::theme(plot.title = ggplot2::element_text(size = 10))
   } else {
     if (!is.null(seromodel_object@sim$samples)) {
-      foi <- rstan::extract(seromodel_object,
-                            "foi",
-                            inc_warmup = FALSE
-      )[[1]]
       #-------- This bit is to get the actual length of the foi data
       foi_data <- get_foi_central_estimates(
         seromodel_object = seromodel_object,