set.seed(params$seed) r <- runif( n = as.integer(params$n), min = as.numeric(params$min), max = as.numeric(params$max) ) summary(r) hist(r)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.