# NOT RUN {
#Enrich a result set. This will make several new data points available.
res.day1 <- results(dds, contrast=c("Condition_Time", "day1_disease", "day1_control"))
enriched_result <- enrich_res(res.day1)
#Print number of differentially expressed genes.
print(enriched_result@numDE)
#Get the names of all up-regulated differentially expressed genes.
upreg_de_genes <- enriched_result@upNames
# }
Run the code above in your browser using DataLab