R/nchains.R

In mcmcr: Manipulate MCMC Samples

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

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

#' @export
universals::nchains

#' @inherit universals::nchains
#' @export
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]])

Try the mcmcr package in your browser