diff report_clonality/RScript.r @ 74:08254c202db7 draft

Uploaded
author davidvanzessen
date Mon, 05 Sep 2016 03:57:24 -0400
parents 7c9b9d97d596
children
line wrap: on
line diff
--- a/report_clonality/RScript.r	Thu Aug 25 07:15:27 2016 -0400
+++ b/report_clonality/RScript.r	Mon Sep 05 03:57:24 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")])