Nothing
oats <- data.frame(
yield=c(71.2,72.6,47.8,76.9,42.5,49.6,62.8,
65.2,60.7,42.8,73.0,41.7,56.6,57.3),
variety=c(rep(c("A","B"),each=7)))
t.test(yield~variety,data=oats)
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.