Nothing
rmProfiles.wprof <-
function(y, v, ...) {
if (is.logical(v)) v <- which(v)
if (is.character(v)) v <- which(rownames(prof$profiles) %in% v)
prof$profiles <- prof$profiles[-v,]
prof$freq <- prof$freq[-v]
return(prof)
}
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.