## Not run:
#
# fit <- lmFit(y, design)
# fit <- eBayes(fit)
#
# # Standard GO analysis
# go.fisher <- goana(fit)
# topGO(go.fisher, sort = "up")
# topGO(go.fisher, sort = "down")
#
# # GO analysis adjusting for gene abundance
# go.abund <- goana(fit, geneid = "GeneID", trend = TRUE)
# topGO(go.abund, sort = "up")
# topGO(go.abund, sort = "down")
#
# # GO analysis adjusting for gene length bias
# # (assuming that y$genes$Length contains gene lengths)
# go.len <- goana(fit, geneid = "GeneID", trend = "Length")
# topGO(go.len, sort = "up")
# topGO(go.len, sort = "down")
# ## End(Not run)
Run the code above in your browser using DataLab