Nothing
"generateExprVal.method.trimMean" <-
function(probes, trim = 0.15)
{
mu <- apply(probes, 2, mean, trim = trim)
s <- rep(NA, length(mu))
return(list(exprs = mu, se.exprs = s))
}
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.