# HG changeset patch
# User davidvanzessen
# Date 1382973106 14400
# Node ID ba6c6725b12fb8b027bb91ae7f55d31cd9fc38b6
# Parent  f9a657db7af53cfce9a930e282180ddb95b3be5e
Uploaded

diff -r f9a657db7af5 -r ba6c6725b12f RScript.r
--- a/RScript.r	Wed Oct 16 04:30:42 2013 -0400
+++ b/RScript.r	Mon Oct 28 11:11:46 2013 -0400
@@ -33,7 +33,9 @@
 
 PRODF = PROD[ -1]
 
-PRODF = unique(PRODF)
+#PRODF = unique(PRODF)
+PRODF = PRODF[!duplicated(PRODF$VDJCDR3), ]
+
 
 uniqueCount = split(PRODF, f=PRODF[,"Sample"])