Nothing
x <- 1:10; z <- rnorm(100)
mean(z); sd(z); var(z); median(z) # basic statistical functions
range(z) # range returns a vector of length 2
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.