# NOT RUN {
library(cmdstanr)
# eight schools example
fit_schools_ncp_mcmc <- cmdstanr_example("schools_ncp")
drws <- extract_chkpt_draws(object = fit_schools_ncp_mcmc,
phase = "sample")
# compare to cmdstanr
all.equal(drws, fit_schools_ncp_mcmc$draws())
# }
Run the code above in your browser using DataLab