# data = sampleData(1:5, 100)
# x = data[,1]; y = data[,2]
sampleData = function(x,n)
tmp = sapply(x, function(i) cbind(i, rnorm(n,mean = i)), simplify = FALSE)
r = NULL
for(i in 1:length(tmp)) r = rbind(r,tmp[[i]])
Add the following code to your website.
Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.