Nothing
`rndGO` <-
function(mnom, ssize=10)
{
x <- as.data.frame(t(generate.multinomial(mnom, ssize)/mnom$n))
result <- sapply(x, contractCol, row.names(x))
attr(result, "ngenes") <- mnom$n
return(result)
}
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.