## Not run:
# ## say we have an ExpressionSet from HuGene 1.0 ST array
# dat <- read.celfiles()
# eset <- rma(dat)
# ## annotate the ExpressionSet
# eset <- annotateEset(eset, hugene10sttranscriptcluster.db,
# columns = c("ENTREZID","ACCNUM","SYMBOL"))
# ## and fit a model using limma
# fit <- lmFit(eset, design)
# fit2 <- eBayes(fit)
# ## and create an HTML page with links to Affy and Entrez
# out <- topTable(fit2, coef=2)
# htab <- HTMLReport("The title","a_short_name")
# publish(out, htab, .modifyDF = list(affyLinks, entrezLinks, nuccoreLinks))
# finish(htab)## End(Not run)
Run the code above in your browser using DataLab