Mercurial > repos > davidvanzessen > plotting_merged

comparison RScript.r @ 46:a2db27f58627 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Mon, 25 Nov 2013 08:33:49 -0500
parents 2c6d04fa10f4
children 33ebd6f0d256
comparison
equal deleted inserted replaced
45:2c6d04fa10f4 46:a2db27f58627
30 30
31 test = test[test$Sample != "",] 31 test = test[test$Sample != "",]
32 32
33 if("Replicate" %in% colnames(test)) 33 if("Replicate" %in% colnames(test))
34 { 34 {
35 test$SRID = do.call(paste, c(test["Sample", "Replicate"], sep = "-")) 35 test$SRID = do.call(paste, c(test[c("Sample", "Replicate")], sep = "-"))
36 } 36 }
37 37
38 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene) 38 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene)
39 test$Top.D.Gene = gsub("[*]([0-9]+)", "", test$Top.D.Gene) 39 test$Top.D.Gene = gsub("[*]([0-9]+)", "", test$Top.D.Gene)
40 test$Top.J.Gene = gsub("[*]([0-9]+)", "", test$Top.J.Gene) 40 test$Top.J.Gene = gsub("[*]([0-9]+)", "", test$Top.J.Gene)