changeset 53:8ebe57feecd6 draft

Uploaded
author davidvanzessen
date Mon, 12 Oct 2015 10:48:32 -0400
parents c5c2a790d476
children ef5ffc8a6e37
files RScript.r
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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")
 }