View source: R/combine_chkpt_draws.R
combine_chkpt_draws | R Documentation |
Combine Checkpoint Draws
combine_chkpt_draws(object, ...)
object |
An object of class |
... |
Currently ignored. |
An object of class draws_array
.
## Not run: path <- create_folder(folder_name = "chkpt_folder_fit1") stan_code <- " data { int<lower=0> n; real y[n]; real<lower=0> sigma[n]; } parameters { real mu; real<lower=0> tau; vector[n] eta; } transformed parameters { vector[n] theta; theta = mu + tau * eta; } model { target += normal_lpdf(eta | 0, 1); target += normal_lpdf(y | theta, sigma); } " stan_data <- schools.data <- list( n = 8, y = c(28, 8, -3, 7, -1, 1, 18, 12), sigma = c(15, 10, 16, 11, 9, 11, 10, 18) ) fit2 <- chkpt_stan(model_code = stan_code, data = stan_data, iter_warmup = 1000, iter_sampling = 1000, iter_per_chkpt = 250, path = path) draws <- combine_chkpt_draws(object = fit2) draws ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.