## Not run:
# ## say we have an ExpressionSet from HuGene 1.0 ST array
# ## and fit a model using limma
# fit <- lmFit(eset, design)
# fit2 <- eBayes(fit)
# ## now annotate the genes using select()
# fit2$genes <- select(hugene10sttranscriptcluster.db, featureNames(eset),
# c("ENTREZID","SYMBOL"))
# ## 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))
# finish(htab)## End(Not run)
Run the code above in your browser using DataLab