Skip to contents

Format model fitting options for use with stan

Usage

enw_fit_opts(
  sampler = epinowcast::enw_sample,
  nowcast = TRUE,
  pp = FALSE,
  likelihood = TRUE,
  likelihood_aggregation = c("snapshots", "groups"),
  debug = FALSE,
  output_loglik = FALSE,
  ...
)

Arguments

sampler

A function that creates an object that be used to extract posterior samples from the specified model. By default this is enw_sample() which makes use of cmdstanr::sample().

nowcast

Logical, defaults to TRUE. Should a nowcast be made using posterior predictions of the unobserved future reported notifications.

pp

Logical, defaults to FALSE. Should posterior predictions be made for observed data. Useful for evaluating the performance of the model.

likelihood

Logical, defaults to TRUE. Should the likelihood be included in the model

likelihood_aggregation

Character string, aggregation over which stratify the likelihood when threads = TRUE; enforced by base::match.arg(). Currently supported options:

  • "snapshots" which aggregates over report dates and groups (i.e the lowest level that observations are reported at),

  • "groups" which aggregates across user defined groups.

Note that some model modules override this setting depending on model requirements. For example, the enw_missing() module model forces "groups" option. Generally, Users should typically want the default "snapshots" aggregation.

debug

Logical, defaults to FALSE. Should within model debug information be returned.

output_loglik

Logical, defaults to FALSE. Should the log-likelihood be output. Disabling this will speed up fitting if evaluating the model fit is not required.

...

Additional arguments to pass to the fitting function being used by epinowcast(). By default this will be enw_sample() and so cmdstanr options should be used.

Value

A list containing the specified sampler function, data as a list specifying the fitting options to use, and additional arguments to pass to the sampler function when it is called.

See also

Examples

# Default options along with settings to pass to enw_sample
enw_fit_opts(iter_sampling = 1000, iter_warmup = 1000)
#> $sampler
#> function (data, model = epinowcast::enw_model(), diagnostics = TRUE, 
#>     ...) 
#> {
#>     fit <- model$sample(data = data, ...)
#>     out <- data.table(fit = list(fit), data = list(data), fit_args = list(list(...)))
#>     if (diagnostics) {
#>         diag <- fit$sampler_diagnostics(format = "df")
#>         diagnostics <- data.table(samples = nrow(diag), max_rhat = round(max(fit$summary(variables = NULL, 
#>             posterior::rhat, .args = list(na.rm = TRUE))$`posterior::rhat`, 
#>             na.rm = TRUE), 2), divergent_transitions = sum(diag$divergent__), 
#>             per_divergent_transitions = sum(diag$divergent__)/nrow(diag), 
#>             max_treedepth = max(diag$treedepth__))
#>         diagnostics[, `:=`(no_at_max_treedepth, sum(diag$treedepth__ == 
#>             max_treedepth))]
#>         diagnostics[, `:=`(per_at_max_treedepth, no_at_max_treedepth/nrow(diag))]
#>         out <- cbind(out, diagnostics)
#>         timing <- round(fit$time()$total, 1)
#>         out[, `:=`(run_time, timing)]
#>     }
#>     return(out[])
#> }
#> <bytecode: 0x55927007a9e8>
#> <environment: namespace:epinowcast>
#> 
#> $data
#> $data$debug
#> [1] 0
#> 
#> $data$likelihood
#> [1] 1
#> 
#> $data$likelihood_aggregation
#> [1] 0
#> 
#> $data$pp
#> [1] 0
#> 
#> $data$cast
#> [1] 1
#> 
#> $data$ologlik
#> [1] 0
#> 
#> 
#> $args
#> $args$iter_sampling
#> [1] 1000
#> 
#> $args$iter_warmup
#> [1] 1000
#> 
#>