R/dclone.dctr.R

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
}

Try the dclone package in your browser

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

dclone documentation built on July 10, 2023, 2:03 a.m.