Nothing
Boutrp <-
function (x, cmat)
{
ngroup <- ncol(x$t)
f <- x$strata
ni <- unlist(lapply(split(f, f = f), length))
gnames <- names(x$t0)
names(ni) <- gnames
if (any(ni < 5)) {
warning("For sample sizes les than 5 this function hardly makes sense!")
}
chains <- x$t
out <- CCdrp(x = chains, cmat = cmat)
return(out)
}
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.