modified RNA-seq.R in R (640ccf80) · Commits · Chaos / chaos.tools

R/RNA-seq.R

+2 −2

Original line number	Diff line number	Diff line
		@@ -223,7 +223,7 @@ c.rnaseq <- function(
		gtf_dt = NULL,
		count_type = "star",
		result = "DE",
		mode = "single"
		mode = "multi"
		){
		if(tolower(mode) %in% c("single","s")){
		group_file_dt <- data.table(count_files,group)
		@@ -231,7 +231,7 @@ c.rnaseq <- function(
		mclapply(
		compare,
		\(x){
		sub_group_file_dt <- group_file_dt[group %in% unlist(strsplit(compare,"-"))]
		sub_group_file_dt <- group_file_dt[group %in% unlist(strsplit(x,"-"))]

		c.rnaseq.core(
		dge_list = dge_list,