EpiSim: Build multi-compartment models via an Excel workbook

Description Usage Arguments Value Examples

Main box/compartment model functions

seir.n.age.classes(
  file.name,
  sheets.names,
  episim.controls = NULL,
  functions.kit = NULL,
  also.get.flows = NULL,
  agegrp.glue = "",
  CTMC.random.seeds = NULL
)

`file.name`	a character element.
`sheets.names`	a list.
`episim.controls`	a list containing one or more of the following: $run.until, $insert.tmins, $insert.tmin.char, $times.of.interest, $import.system.snapshots, $export.system.snapshot.time, $deSolve.controls (by default, NULL).
`functions.kit`	a list containing one or more of the following: $differential.eqns.func, $post.processing.func, $post.processing.companion.kit, $CTMC.eqns.func, $CTMC.eqns.func.companion (by default, NULL).
`also.get.flows`	a character element (by default, NULL).
`agegrp.glue`	a character element (by default, an empty character element).
`CTMC.random.seeds`	an integer vector (by default, NULL).

a list containing the results of the box/compartment model.

# Get full path to demo model (in Excel workbook)
# that comes with the EpiSim package
model.1.workbook <- get.path("demo.model.1.xls")

# Define workbook sheet names
sheet.names <- list(
  parms.notime.0d = "Parameters any time any age",
  parms.0d = "Parameters any age",
  parms.1d = "Parameters by Age",
  parms.2d = "Parameters by Age x Age",
  initial.conditions = "Initial conditions",
  model.flow = "Model Specs (not lazy v1)",
  auxiliary.vars = "Intermediate calculations",
  post.processing = "Post Processing Empty"
)

# Fit model with model.flow = "Model Specs (not lazy v1)"
results.1 <- seir.n.age.classes(model.1.workbook, sheet.names)