R/as-nlists.R

In poissonconsulting/mcmcr: Manipulate MCMC Samples

Defines functions as_nlists.mcmcr

Documented in as_nlists.mcmcr

#' @export
nlist::as_nlists

#' @inherit nlist::as_nlists
#' @export
as_nlists.mcmcr <- function(x, ...) {
  chk_identical(nchains(x), 1L)
  x <- lapply(1:niters(x), FUN = subset_iteration_mcmcr, x)
  x <- lapply(x, set_class, "nlist")
  set_class(x, "nlists")
}