Fit a severity estimate model instance.

Usage

fit(model, ...)

Arguments

model: A SeverityEstimateModel to fit.
...: Further optional args that are eventually given to rstan::sampling() related to fitting.

Value

A SeverityEstimateFit S4 object.

Examples

# \donttest{
set.seed(1)
line_list <- data.frame(
  time = c(1L, 1L, 2L),
  age = c("Youth", "Adult", "Senior"),
  detection = c("Active", "Passive", "Active"),
  outcome = c("Asymptomatic", "Death", "Symptomatic")
)
population <- data.frame(
  age = c("Youth", "Adult", "Senior"),
  amount = rep(987L, 3L)
)
fitted_model <- suppressWarnings(fit(
  default_model(line_list, population),
  chains = 1L,
  cores = 1L,
  iter = 10L,
  warmup = 5L,
  seed = 1,
  refresh = 0
))
# }