Nothing
#' @export
universals::nchains
#' @inherit universals::nchains
#' @export
nchains.mcmc <- function(x, ...) 1L
#' @inherit universals::nchains
#' @export
nchains.mcmc.list <- function(x, ...) length(x)
#' @details Always 1L.
#'
#' @inherit universals::nterms
#' @export
#'
#' @examples
#' nchains(nlist(x = 1:2))
nchains.nlist <- function(x, ...) 1L
#' @inherit universals::nterms
#' @export
#'
#' @examples
#' nchains(nlists(nlist(x = c(2, 9)), nlist(x = c(1, 7))))
#' nchains(split_chains(nlists(nlist(x = c(2, 9)), nlist(x = c(1, 7)))))
nchains.nlists <- function(x, ...) {
nchains <- attr(x, "nchains")
if (is.null(nchains)) {
return(1L)
}
nchains
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.