if (interactive()) {
input <- md_prepare(
data = buffalo,
models = models,
species = "buffalo",
n_individuals = 5,
dur = list(value = 1, unit = "month"),
dti = list(value = 1, unit = "day"),
add_individual_variation = TRUE,
grouped = TRUE,
set_target = "hr",
which_meta = "mean"
)
output <- md_replicate(input, n_replicates = 20)
# Plot with 80% credible intervals:
md_plot(output, ci = 0.80, method = "HDI")
}
Run the code above in your browser using DataLab