Nothing
info.plmDE <- function(Object, ...) {
cat("Number of samples:", length(Object$sampleInfo[,1]))
cat("\nNumber of variables regarding these Samples:", length(Object$sampleInfo[1,]) - 2)
cat("\nNumber of gene expression measurements for each sample:", length(Object$expressionValues[,1]))
cat("\nSample subgroups:", toString(unique(Object$sampleInfo[,2])))
}
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.