Mercurial > repos > davidvanzessen > clonal_sequences_in_paired_samples
diff RScript.r @ 8:fa240d1c57a9 draft
Uploaded
author | davidvanzessen |
---|---|
date | Thu, 18 Sep 2014 10:28:24 -0400 |
parents | 68c6c7624ffc |
children | 58a28427930e |
line wrap: on
line diff
--- a/RScript.r Thu Sep 18 08:56:44 2014 -0400 +++ b/RScript.r Thu Sep 18 10:28:24 2014 -0400 @@ -317,17 +317,17 @@ one = dat[dat$Patient == "VanDongen_cALL_14696.1",] two = dat[dat$Patient == "VanDongen_cALL_14696.2",] three = dat[dat$Patient == "VanDongen_cALL_14696.3",] -tripletAnalysis(one, "14696_1", two, "14696_2", three, "14696_3", product=product, interval=interval, on="normalized_read_count") +tripletAnalysis(one, "14696_1", two, "14696_2", three, "14696_3", product=product, interval=interval, on="normalized_read_count", T) one = dat[dat$Sample == "16278_Left",] two = dat[dat$Sample == "26402_Left",] three = dat[dat$Sample == "26759_Left",] -tripletAnalysis(one, "16278_Left", two, "26402_Left", three, "26759_Left", product=product, interval=interval, on="normalized_read_count") +tripletAnalysis(one, "16278_Left", two, "26402_Left", three, "26759_Left", product=product, interval=interval, on="normalized_read_count", T) one = dat[dat$Sample == "16278_Right",] two = dat[dat$Sample == "26402_Right",] three = dat[dat$Sample == "26759_Right",] -tripletAnalysis(one, "16278_Right", two, "26402_Right", three, "26759_Right", product=product, interval=interval, on="normalized_read_count") +tripletAnalysis(one, "16278_Right", two, "26402_Right", three, "26759_Right", product=product, interval=interval, on="normalized_read_count", T) interval = intervalFreq @@ -337,17 +337,17 @@ one = dat[dat$Patient == "VanDongen_cALL_14696.1",] two = dat[dat$Patient == "VanDongen_cALL_14696.2",] three = dat[dat$Patient == "VanDongen_cALL_14696.3",] -tripletAnalysis(one, "14696_1", two, "14696_2", three, "14696_3", product=product, interval=interval, on="Frequency", T) +tripletAnalysis(one, "14696_1", two, "14696_2", three, "14696_3", product=product, interval=interval, on="Frequency", F) one = dat[dat$Sample == "16278_Left",] two = dat[dat$Sample == "26402_Left",] three = dat[dat$Sample == "26759_Left",] -tripletAnalysis(one, "16278_Left", two, "26402_Left", three, "26759_Left", product=product, interval=interval, on="Frequency", T) +tripletAnalysis(one, "16278_Left", two, "26402_Left", three, "26759_Left", product=product, interval=interval, on="Frequency", F) one = dat[dat$Sample == "16278_Right",] two = dat[dat$Sample == "26402_Right",] three = dat[dat$Sample == "26759_Right",] -tripletAnalysis(one, "16278_Right", two, "26402_Right", three, "26759_Right", product=product, interval=interval, on="Frequency", T) +tripletAnalysis(one, "16278_Right", two, "26402_Right", three, "26759_Right", product=product, interval=interval, on="Frequency", F)