R/npdims.R

In poissonconsulting/mcmcr: Manipulate MCMC Samples

Defines functions npdims.mcmcr npdims.mcmcarray

Documented in npdims.mcmcarray npdims.mcmcr

#' @export
universals::npdims

#' @inherit universals::npdims
#' @export
npdims.mcmcarray <- function(x, ...) length(pdims(x))

#' @inherit universals::npdims
#' @export
npdims.mcmcr <- function(x, ...) vapply(x, npdims, 1L)