Mercurial > repos > davidvanzessen > argalaxy_tools

diff report_clonality/RScript.r @ 36:fd55088e48d2 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Fri, 22 Jan 2016 10:22:24 -0500
parents f2010de70741
children 2e0a7c35082e
line wrap: on
line diff
--- a/report_clonality/RScript.r	Fri Jan 22 08:45:29 2016 -0500
+++ b/report_clonality/RScript.r	Fri Jan 22 10:22:24 2016 -0500
@@ -492,17 +492,17 @@
 	PRODF.sample = PRODF[PRODF$Sample == smpl,]
 	
 	fltr = PRODF.sample$Top.V.Gene == ""
-	if(sum(fltr) > 0){
+	if(any(fltr, na.rm=T)){
 	  PRODF.sample[fltr, "Top.V.Gene"] = "NA"
 	}
-
+	
 	fltr = PRODF.sample$Top.D.Gene == ""
-	if(sum(fltr) > 0){
+	if(any(fltr, na.rm=T)){
 	  PRODF.sample[fltr, "Top.D.Gene"] = "NA"
 	}
 
 	fltr = PRODF.sample$Top.J.Gene == ""
-	if(sum(fltr) > 0){
+	if(any(fltr, na.rm=T)){
 	  PRODF.sample[fltr, "Top.J.Gene"] = "NA"
 	}