# parameterised
ep <- epiparameter(
disease = "ebola",
epi_name = "incubation",
prob_distribution = create_prob_distribution(
prob_distribution = "gamma",
prob_distribution_params = c(shape = 1, scale = 1)
)
)
is_parameterised(ep)
# unparameterised
ep <- epiparameter(
disease = "ebola",
epi_name = "incubation"
)
is_parameterised(ep)
# list of
db <- epiparameter_db()
is_parameterised(db)
Run the code above in your browser using DataLab