ep <- epiparameter(
disease = "ebola",
epi_name = "incubation_period",
prob_distribution = create_prob_distribution(
prob_distribution = "lnorm",
prob_distribution_params = c(meanlog = 1, sdlog = 1)
)
)
is_continuous(ep)
is_continuous(discretise(ep))
ep <- epiparameter(
disease = "ebola",
epi_name = "offspring distribution",
prob_distribution = create_prob_distribution(
prob_distribution = "nbinom",
prob_distribution_params = c(mean = 2, dispersion = 0.5)
)
)
is_continuous(ep)
Run the code above in your browser using DataLab