Nothing
set.seed(1000)
ngenes <- 1000
ncells <- 200
npops <- 10
mu <- matrix(rnorm(npops*ngenes), ncol=npops)
lcounts <- mu[,sample(ncol(mu), ncells, replace=TRUE)]
lcounts <- lcounts + rnorm(length(lcounts))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.