# Load ABC output from saved file
abc_file <- system.file(
"extdata", "rdm_minimal", "abc", "abc_rejection_model.rds",
package = "eam"
)
abc_rejection_model <- readRDS(abc_file)
# Load ABC input for prior comparison
abc_input_file <- system.file(
"extdata", "rdm_minimal", "abc", "abc_input.rds",
package = "eam"
)
abc_input <- readRDS(abc_input_file)
# Plot posterior distributions with prior comparison
plot_posterior_parameters(abc_rejection_model, abc_input)
Run the code above in your browser using DataLab