# make test patterns library(rstrauss) z <- rstrauss(500, 0.1, 0.03, bbox=cbind(0:1, 0:1)-.5, perfect=T, iter=1e5)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.