# HG changeset patch
# User davidvanzessen
# Date 1444661312 14400
# Node ID 8ebe57feecd6aaa79afd2ca0ad61341306591631
# Parent  c5c2a790d4761a4384455c04e23e676b5d77e50e
Uploaded

diff -r c5c2a790d476 -r 8ebe57feecd6 RScript.r
--- a/RScript.r	Fri Oct 09 10:55:48 2015 -0400
+++ b/RScript.r	Mon Oct 12 10:48:32 2015 -0400
@@ -726,17 +726,17 @@
   one = triplets[triplets$Sample == "14696_reg_BM",]
   two = triplets[triplets$Sample == "24536_reg_BM",]
   three = triplets[triplets$Sample == "24062_reg_BM",]
-  tripletAnalysis(one, "14696_1", two, "14696_2", three, "14696_3", product=product, interval=interval, on="normalized_read_count", T)
+  tripletAnalysis(one, "14696_1_Trio", two, "14696_2_Trio", three, "14696_3_Trio", product=product, interval=interval, on="normalized_read_count", T)
   
   one = triplets[triplets$Sample == "16278_Left",]
   two = triplets[triplets$Sample == "26402_Left",]
   three = triplets[triplets$Sample == "26759_Left",]
-  tripletAnalysis(one, "16278_Left", two, "26402_Left", three, "26759_Left", product=product, interval=interval, on="normalized_read_count", T)
+  tripletAnalysis(one, "16278_Left_Trio", two, "26402_Left_Trio", three, "26759_Left_Trio", product=product, interval=interval, on="normalized_read_count", T)
   
   one = triplets[triplets$Sample == "16278_Right",]
   two = triplets[triplets$Sample == "26402_Right",]
   three = triplets[triplets$Sample == "26759_Right",]
-  tripletAnalysis(one, "16278_Right", two, "26402_Right", three, "26759_Right", product=product, interval=interval, on="normalized_read_count", T)
+  tripletAnalysis(one, "16278_Right_Trio", two, "26402_Right_Trio", three, "26759_Right_Trio", product=product, interval=interval, on="normalized_read_count", T)
   
   
   interval = intervalFreq
@@ -746,17 +746,17 @@
   one = triplets[triplets$Sample == "14696_reg_BM",]
   two = triplets[triplets$Sample == "24536_reg_BM",]
   three = triplets[triplets$Sample == "24062_reg_BM",]
-  tripletAnalysis(one, "14696_1", two, "14696_2", three, "14696_3", product=product, interval=interval, on="Frequency", F)
+  tripletAnalysis(one, "14696_1_Trio", two, "14696_2_Trio", three, "14696_3_Trio", product=product, interval=interval, on="Frequency", F)
   
   one = triplets[triplets$Sample == "16278_Left",]
   two = triplets[triplets$Sample == "26402_Left",]
   three = triplets[triplets$Sample == "26759_Left",]
-  tripletAnalysis(one, "16278_Left", two, "26402_Left", three, "26759_Left", product=product, interval=interval, on="Frequency", F)
+  tripletAnalysis(one, "16278_Left_Trio", two, "26402_Left_Trio", three, "26759_Left_Trio", product=product, interval=interval, on="Frequency", F)
   
   one = triplets[triplets$Sample == "16278_Right",]
   two = triplets[triplets$Sample == "26402_Right",]
   three = triplets[triplets$Sample == "26759_Right",]
-  tripletAnalysis(one, "16278_Right", two, "26402_Right", three, "26759_Right", product=product, interval=interval, on="Frequency", F)
+  tripletAnalysis(one, "16278_Right_Trio", two, "26402_Right_Trio", three, "26759_Right_Trio", product=product, interval=interval, on="Frequency", F)
 } else {
   cat("", file="triplets.txt")
 }