R/nchains.R

Defines functions nchains.mcmcrs nchains.mcmcr nchains.mcmcarray nchains.mcarray nchains.matrix

Documented in nchains.mcarray nchains.mcmcarray nchains.mcmcr nchains.mcmcrs

#' @export
universals::nchains

nchains.matrix <- function(x, ...) nrow(x)

#' @inherit universals::nchains
#' @export
nchains.mcarray <- function(x, ...) unname(dim(x)[ndims(x)])

#' @inherit universals::nchains
#' @export
nchains.mcmcarray <- function(x, ...) dim(x)[1]

#' @inherit universals::nchains
#' @export
nchains.mcmcr <- function(x, ...) nchains(x[[1]])

#' @inherit universals::nchains
#' @export
nchains.mcmcrs <- function(x, ...) nchains(x[[1]])
poissonconsulting/mcmcr documentation built on Jan. 18, 2024, 1:11 a.m.