# HG changeset patch
# User davidvanzessen
# Date 1385389315 18000
# Node ID 00d432c66fb8403feb1c9f55002a99bbd175ebcc
# Parent  e6f28d0a0f14e4909470c007309917f67cfd9fe6
Uploaded

diff -r e6f28d0a0f14 -r 00d432c66fb8 RScript.r
--- 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)