Nothing
randomise <- function(eset){
data <- exprs(eset)
dataR <- matrix(NA,ncol=dim(data)[[2]],nrow=dim(data)[[1]])
for (i in 1:dim(data)[[1]]){
dataR[i,] <- data[i,sample(dim(data)[[2]])]
}
exprs(eset) <- dataR
eset
}
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.