# NOT RUN {
#This example assumes an experimenal design of ~Condition_Time.
#Prepare a result list.
res.day1 <- results(dds, contrast=c("Condition_Time", "day1_disease", "day1_control"))
res.day2 <- results(dds, contrast=c("Condition_Time", "day2_disease", "day2_control"))
res.day3 <- results(dds, contrast=c("Condition_Time", "day3_disease", "day3_control"))
myResList <- list(res.day1, res.day2, res.day3)
/*
* Cluster genes by similarity into 5 groups, then visualize their expression over the
* course of the series using a generalized linear model.
*/
de_series(res_list=myResList, filename="DE_series_pattern.pdf",
designVar="Condition_Time",
groupBy="Time", numGroups=5, theme=1, method="glm",
returnData=FALSE, writeData=FALSE)
/*
* Cluster genes by similarity into 3 groups, then visualize their expression over the
* course of the series using based on mean group expression values.
*/
de_series(res_list=myResList, filename="DE_series_pattern.pdf",
designVar="Condition_Time",
groupBy="Time", numGroups=3, theme=2, method="mean",
returnData=FALSE, writeData=FALSE)
# }
Run the code above in your browser using DataLab