Commit fb31aa9e authored by fc-ibb105's avatar fc-ibb105
Browse files

modified RNA-seq.R in R

parent 4da86505

R/RNA-seq.R

+2 −1
Original line number Diff line number Diff line
@@ -185,9 +185,10 @@ c.rnaseq <- function( 
			.[,compare := gsub("-",".",compare)] %>% 

			.[]

		}else{

			compare.cols <- gsub("-",".",compare)

			melt(

				DE,

				c("gene_id","gene_name","type","chr","start","end","strand","AveExpr","F","P.Value","adj.P.Val","log10P"),

				measure.vars = compare.cols,

				value.name = "log2FC",

				variable.name = "compare"

			)

CRA Git | Maintained and supported by SUSTech CRA and CCSE