# internal functions to create random values
# uniform
createU <- function(x, est, error){
up <- unique(est[x]) + unique(error[x])
lo <- unique(est[x]) - unique(error[x])
vec <- seq(lo, up, length.out=5)
values <- sample(vec, length(x), replace=TRUE)
values
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.