Nothing
obsprof.wprof <-
function(prof) {
res <- list()
wh <- which(prof$freq > 0)
res <- list(profiles=prof$profiles[wh,], freq=prof$freq[wh])
class(res) <- "wprof"
return(res)
}
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.