Nothing
"ftest" <-
function(x,y, test = c("wilcox.test", "t.test")) {
test <- match.arg(test)
switch(test,
wilcox.test = wilcox.test(x,y,exact=FALSE),
t.test = t.test(x,y,exact=FALSE))
}
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.