R/codaSamples.R

In dclone: Data Cloning and MCMC Tools for Maximum Likelihood Methods

codaSamples <-
function(model, variable.names = NULL, n.iter,
thin = 1, na.rm=TRUE, ...)
{
    requireNamespace("rjags")
    n.clones <- nclones(model)
    res <- coda.samples(model=model,
        variable.names=variable.names,
        n.iter=n.iter,
        thin=thin, na.rm=na.rm, ...)
    if (!is.null(n.clones) && n.clones > 1) {
        attr(res, "n.clones") <- n.clones
        class(res) <- c("mcmc.list.dc", class(res))
    }
    res
}