Mercurial > repos > davidvanzessen > combined_immune_repertoire_pipeline

diff RScript.r @ 8:00d432c66fb8 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 09:21:55 -0500
parents 87fb14480352
children 8d83319a0f3d
line wrap: on
line diff
--- a/RScript.r	Fri Nov 22 09:08:45 2013 -0500
+++ b/RScript.r	Mon Nov 25 09:21:55 2013 -0500
@@ -30,6 +30,11 @@
 
 test = test[test$Sample != "",]
 
+if("Replicate" %in% colnames(test))
+{
+	test$SRID = do.call(paste, c(test[c("Sample", "Replicate")], sep = "-"))
+}
+
 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene)
 test$Top.D.Gene = gsub("[*]([0-9]+)", "", test$Top.D.Gene)
 test$Top.J.Gene = gsub("[*]([0-9]+)", "", test$Top.J.Gene)