R/dclone.dctr.R

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

Defines functions dclone.dctr

Documented in dclone.dctr

dclone.dctr <-
function(x, n.clones = 1, attrib = TRUE, ...)
{
    if (n.clones == 1)
        return(x)
    rval <- t(dclone::dclone.default(t(x), n.clones, attrib, ...))
    attr(attr(rval, "n.clones"), "method") <- "tr"
    rval
}