Nothing
GrpMean<-
function(data.grps,data,phenotype.ids)
{
affy.ids=unlist(data.grps)
results=apply(data[affy.ids,phenotype.ids],2,mean)
return(results)
}
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.