[Qpcr-commits] r111 - pkg/NormqPCR/R

[noreply at r-forge.r-project.org]

Author: stamats
Date: 2010-06-07 11:28:19 +0200 (Mon, 07 Jun 2010)
New Revision: 111

Modified:
   pkg/NormqPCR/R/geomMean.R
Log:
minor modification to geomMean

Modified: pkg/NormqPCR/R/geomMean.R
===================================================================
--- pkg/NormqPCR/R/geomMean.R	2010-06-01 13:02:29 UTC (rev 110)
+++ pkg/NormqPCR/R/geomMean.R	2010-06-07 09:28:19 UTC (rev 111)
@@ -6,7 +6,7 @@
     warning("argument is not numeric or logical: returning NA")
     return(as.numeric(NA))
   }
-  if(! FALSE %in% (is.na(x))) {
+  if(all(is.na(x))){
     warning("no non-NAs in 'x'"); return (NA)
   }
   if(na.rm) x <- x[!is.na(x)]