# plot continuous epiparameter
ep <- epiparameter(
disease = "ebola",
epi_name = "incubation_period",
prob_distribution = create_prob_distribution(
prob_distribution = "gamma",
prob_distribution_params = c(shape = 2, scale = 1)
)
)
plot(ep)
# plot different day range (x-axis)
plot(ep, xlim = c(0, 10))
# plot CDF
plot(ep, cumulative = TRUE)
# plot discrete epiparameter
ep <- discretise(ep)
plot(ep)
Run the code above in your browser using DataLab