Nothing
freq <-
function (x) {
freq <- data.frame(n = summary(x), pc = round(summary(x)/length(x)*100, 1))
freq <- rbind(rep(NA, ncol(freq)), freq)
row.names(freq) <- c(deparse(substitute(x)), paste(" ", levels(x), sep=""))
freq
}
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.