1])ID=sapply(ids,function(x){x[,2]})file2id=data.frame(file_name=meta$file_name,ID=ID)head(file2id$file_name)head(count_files)count_files2=stringr::str_split(count_files,"/",simplify=T)[,2]count_files2[1]%in%file2id$
limma_voom_DEG <- DEG tj = data.frame(deseq2 = as.integer(table(DESeq2_DEG$change)), edgeR = as.integer(table(edgeR_DEG$change)), limma_voom = as.integer(table(limma_voom_DEG$change)), row.names = c("down","not","up") );tj save(DESeq2_DEG,edgeR_DEG,limma_voom_DEG,grou...
limma_voom_DEG <- DEG tj = data.frame(deseq2 = as.integer(table(DESeq2_DEG$change)), edgeR = as.integer(table(edgeR_DEG$change)), limma_voom = as.integer(table(limma_voom_DEG$change)), row.names = c("down","not","up") );tj save(DESeq2_DEG,edgeR_DEG,limma_voom_DEG,grou...
limma_voom_DEG <- DEG tj = data.frame(deseq2 = as.integer(table(DESeq2_DEG$change)), edgeR = as.integer(table(edgeR_DEG$change)), limma_voom = as.integer(table(limma_voom_DEG$change)), row.names = c("down","not","up") );tj save(DESeq2_DEG,edgeR_DEG,limma_voom_DEG,grou...