Nothing
findk <- function(set,f,k) {
f <- droplevels(factor(f))
n <- table(droplevels(factor(f)))
if (k>min(n)) {k <- min(n)}
spl <- splitf(set,f,k)
if (k!=length(spl)) {k <- length(spl)}
return(k)
}
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.