Read scenario from JSON
Examples
scenario_pandemic_flu <- scenario(
name = "pandemic_flu",
model_function = "finalsize::final_size",
parameters = make_parameters_finalsize_UK(),
replicates = 1
)
# create temporary filepath
tmpfile <- tempfile(fileext = ".json")
sce_to_json(scenario_pandemic_flu, file = tmpfile)
sce_from_json(tmpfile)
#> Epidemic scenario object
#> Scenario name: "pandemic_flu"
#> Model function: finalsize::final_size
#> Extra information on:
#> Scenario replicates: 1
#> Scenario outcomes are not prepared