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)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.