参考链接:
Data visualization
Analyzing RNA-seq data with DESeq2翻译(2)
R里面有很多需要学习的东西,这一篇的学习占了我一下午的时间。
#这一部分和RNA-seq(5)学习笔记代码一样,因为之前我的res文件丢失,故重新做了一份
setwd("D:/biotech/RNA/aligned")
getwd()
options(stringsAsFactors = FALSE)
library(DESeq2)
remove(treat2)
#读数据
mycounts<-read.csv("readout.csv")
rownames(mycounts)<-mycounts[,1]
#把带ID的列删除
mycounts<-mycounts[,-1]
head(mycounts)
condition <- factor(c(rep("control",2),rep("treat",3)), levels = c("control","treat"))
condition
colData <- data.frame(row.names=colnames(mycounts), condition)
colData
dds <- DESeqDataSetFromMatrix(mycounts, colData, design= ~ condition)
dds <- DESeq(dds)
dds
res = results(dds, contrast