R/niters.R

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]])

Try the mcmcr package in your browser

Any scripts or data that you put into this service are public.

mcmcr documentation built on Sept. 7, 2021, 1:07 a.m.