modified RNA-seq.R in R (17a4ec22) · Commits · Chaos / chaos.tools

R/RNA-seq.R

+21 −14

Original line number	Diff line number	Diff line
		@@ -264,10 +264,13 @@ de.gene <- function(
		sub_dt <- dt
		}

		lapply(
		sub_dt$commpare \|> unique(),
		\(x){
		if(keytype == "SYMBOL"){
		sub_dt[,gene_name]
		sub_dt[compare == x,gene_name]
		}else if(keytype == "ENSEMBL"){
		sub_dt[,gene_id]
		sub_dt[compare == x,gene_id]
		}else if(keytype == "short_ENSEMBL"){
		separate_col(
		sub_dt,
		@@ -276,8 +279,12 @@ de.gene <- function(
		select = 1,
		into = "short_ENSEMBL",
		remove = F
		)[,short_ENSEMBL]
		)[compare == x,short_ENSEMBL]
		}
		} \|>
		set_names(sub_dt$commpare \|> unique())
		)

		}

		c.volcano <- function(