Mercurial > repos > davidvanzessen > argalaxy_tools

diff report_clonality/RScript.r @ 1:90a05ff900db draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Mon, 05 Sep 2016 04:46:06 -0400
parents afe85eb6572e
children beaa487ecf43
line wrap: on
line diff
--- a/report_clonality/RScript.r	Mon Aug 29 05:41:20 2016 -0400
+++ b/report_clonality/RScript.r	Mon Sep 05 04:46:06 2016 -0400
@@ -115,6 +115,9 @@
   clonalityFrame = clonalityFrame[!duplicated(clonalityFrame$clonality_clonaltype), ]
 }
 
+print("SAMPLE TABLE:")
+print(table(PRODF$Sample))
+
 prod.unique.sample.count = data.frame(data.table(PRODF)[, list(Productive_unique=.N), by=c("Sample")])
 prod.unique.rep.count = data.frame(data.table(PRODF)[, list(Productive_unique=.N), by=c("Sample", "Replicate")])