Nothing
check_strata <-
function(x, mat)
{
Str <- as.integer(strata(x))
BBstr <- apply(data.matrix(mat), 2, function(z) Str[z])
nstr <- apply(BBstr, 2, function(z) length(unique(z)))
structure(nstr == length(unique(Str)),
nx = length(unique(Str)),
nmat = nstr)
}
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.