R/nchains.R

In nlist: Lists of Numeric Atomic Objects

#' @export
universals::nchains

#' @inherit universals::nchains
#' @export
nchains.mcmc <- function(x, ...) 1L

#' @inherit universals::nchains
#' @export
nchains.mcmc.list <- function(x, ...) length(x)

#' @details Always 1L.
#'
#' @inherit universals::nterms
#' @export
#'
#' @examples
#' nchains(nlist(x = 1:2))
nchains.nlist <- function(x, ...) 1L

#' @inherit universals::nterms
#' @export
#'
#' @examples
#' nchains(nlists(nlist(x = c(2, 9)), nlist(x = c(1, 7))))
#' nchains(split_chains(nlists(nlist(x = c(2, 9)), nlist(x = c(1, 7)))))
nchains.nlists <- function(x, ...) {
  nchains <- attr(x, "nchains")
  if (is.null(nchains)) {
    return(1L)
  }
  nchains
}