Nothing
notes <- toupper(letters[1:7]); a <- 1:5; b <- seq(10,100,by=10)
toupper(letters[5:10])
paste(letters[1:5],1:3,sep='-')
a+b
(a+b)[ a+b > 50]
length((a+b)[a+b > 50])
table(a+b > 50)
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.