R/codaSamples.R

Defines functions codaSamples

Documented in codaSamples

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

Try the dclone package in your browser

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

dclone documentation built on May 2, 2019, 6:08 p.m.