Nothing
rcn<-function(n,eps,sigmac) rnorm(n,0,sample(c(1,sigmac),n,replace=TRUE,prob=c(1-eps,eps)))
rcn_5_5 <- function(n) rcn(n,0.05,5)
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.