## Not run:
# library("DESeq2")
# library("airway")
# data("airway")
# dds <- DESeqDataSet(se = airway, design = ~ cell + dex)
# dds <- DESeq(dds)
# deseq_res <- results(dds)
# deseq_res <- ihw(deseq_res, alpha=0.1)
# #equivalent: deseq_res2 <- results(dds, filterFun = ihw)
# ## End(Not run)
Run the code above in your browser using DataLab