Nothing
"parOKgroups" <-
function(clu,
parOKaddParam #list of additional parameters, at lest k and groups
){
isTRUE(all(cut(clu,c(0,cumsum(parOKaddParam$k)),labels =FALSE)==parOKaddParam$groups))
}
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.