Mercurial > repos > davidvanzessen > argalaxy_tools
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")])