Nothing
head.DEresults <- function(x, ...) {
cat("Testing Reults: \n")
print(head(x$allgenes, ...))
cat("\n",length(x$DEgenes[,1]), "genes show significant evidence of differential expression. \n")
}
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.