########
# LOAD DATA INTO LIMMA
########
library("limma")
# load a filtered expression set into R
# NOTE: see the vignette for instructions on preparing
# a filtered dataset with your own data.
data(GSE20986_eset_exprs, package="ELBOW")
data(GSE20986_design, package="ELBOW")
# fit the linear model to the filtered expression set
fit <- lmFit(GSE20986_eset_exprs, GSE20986_design)
# set up a contrast matrix to compare tissues v cell line
contrast.matrix <- makeContrasts(huvec_choroid = huvec - choroid, huvec_retina = huvec - retina, huvec_iris <- huvec - iris, levels=GSE20986_design)
# Now the contrast matrix is combined with the per-probeset linear model fit.
huvec_fits <- contrasts.fit(fit, contrast.matrix)
huvec_ebFit <- eBayes(huvec_fits)
########
# GET THE ELBOW LIMIT (this function)
########
get_elbow_limma(huvec_ebFit)
Run the code above in your browser using DataLab