Nothing
(if(file.access("Examples/clouds.rda") == 0) load("Examples/clouds.rda")
else require(HSAUR))
formula <- rainfall ~ seeding * (sne + cloudcover + prewetness + echomotion) + time
mf <- model.frame(formula, clouds)
class(mf)
names(attributes(mf))
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.