set.seed(15437)
x <- floor(runif(100)*100)
y1 <- sample(c(TRUE,FALSE),10,replace=TRUE)
y2 <- sample(c(TRUE,FALSE),10,replace=TRUE)
z <- sample(c("a","b","c"),1000,replace=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.