R/niters.R

In poissonconsulting/mcmcr: Manipulate MCMC Samples

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

Documented in niters.mcarray niters.mcmcarray niters.mcmcr niters.mcmcrs

#' @export
universals::niters

niters.matrix <- function(x, ...) ncol(x)

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

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

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

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