Nothing
# for CI; p-value not interesting here
t.test(iris$Sepal.Width[iris$Species=="virginica"])
# this gives a more interesting p-value
t.test(iris$Sepal.Width[iris$Species=="virginica"],mu=3)
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.