diff --git a/R/estimate_severity.R b/R/estimate_severity.R index e15f76b0..15de71fb 100644 --- a/R/estimate_severity.R +++ b/R/estimate_severity.R @@ -53,9 +53,9 @@ estimate_severity <- function(total_cases, severity_lims <- range(pprange[lik >= (max(lik) - 1.92)]) severity_estimate <- data.frame( - "severity_mean" = severity_mean, - "severity_low" = severity_lims[[1]], - "severity_high" = severity_lims[[2]] + severity_mean = severity_mean, + severity_low = severity_lims[[1]], + severity_high = severity_lims[[2]] ) # returning vector with corrected estimates diff --git a/R/estimate_static.R b/R/estimate_static.R index ef62b5b9..ec583214 100644 --- a/R/estimate_static.R +++ b/R/estimate_static.R @@ -168,9 +168,9 @@ estimate_static <- function(data, severity_lims <- severity_conf$conf.int severity_estimate <- data.frame( - "severity_mean" = severity_mean, - "severity_low" = severity_lims[[1]], - "severity_high" = severity_lims[[2]] + severity_mean = severity_mean, + severity_low = severity_lims[[1]], + severity_high = severity_lims[[2]] ) }