if (FALSE) {
# suppose previously we had run the following:
sim <- new_simulation(name = "normal-example",
label = "Normal Mean Estimation",
dir = tempdir()) %>%
generate_model(make_my_example_model, n = 20) %>%
simulate_from_model(nsim = 50, index = 1:3)
# then we could get the simulated draws as follows:
d <- draws(sim)
d@draws$r1.1 # first random draw
}
Run the code above in your browser using DataLab