Nothing
library(testthat) library(autoharp)
X <- c(1L, 3L, 5L, 7L, 9L, 11L) mean_X <- mean(X)
last.X <- X[length(X)]
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.