modified RNA-seq.R in R (9d90e1b9) · Commits · Chaos / chaos.tools

R/RNA-seq.R

+3 −2

Original line number	Diff line number	Diff line
		@@ -228,7 +228,7 @@ c.rnaseq <- function(
		if(tolower(mode) %in% c("single","s")){
		group_file_dt <- data.table(count_files,group)

		lapply(
		mclapply(
		compare,
		\(x){
		sub_group_file_dt <- group_file_dt[group %in% unlist(strsplit(compare,"-"))]
		@@ -243,7 +243,8 @@ c.rnaseq <- function(
		count_type = count_type,
		result = result
		)
		}
		},
		mc.cores = length(compare)
		) \|>
		rbindlist()
		}else if(tolower(mode) %in% c("multi","m")){