Nothing
"swap" <-
function(varcov, invars, rparm, nreps, ana.obj, ...)
{
this.call <- match.call()
if (!inherits(ana.obj, "analysis.object"))
stop("arg 5 must be analysis.object")
method <- ana.obj$method
res <-
if (method == "F2") {
swapf2(varcov, invars, rparm, nreps, ana.obj, ...)
}
else {
swapbc1(varcov, invars, rparm, nreps, ana.obj, ...)
}
res$call <- this.call
res
}
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.