Nothing
regressOut = function(sms, rhs, ...) {
mm = model.matrix(rhs, data=pData(sms))
f = limma::lmFit(exprs(sms), mm, ...)
r = exprs(sms) - (f$coef %*% t(f$design))
sms@assayData = assayDataNew("lockedEnvironment", exprs=r)
sms
}
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.