# Load an example abc output, you should generate it by applying ABC to your data
# check abc::abc for details on fitting ABC models
rdm_minimal_example <- system.file("extdata", "rdm_minimal", package = "eam")
abc_model <- readRDS(file.path(rdm_minimal_example, "abc", "abc_neuralnet_model.rds"))
# Bootstrap resample posterior parameters
posterior_params <- abc_posterior_bootstrap(
abc_model,
n_samples = 100
)
# View the first few rows of the bootstrapped posterior parameters
head(posterior_params)
Run the code above in your browser using DataLab