[adegenet-commits] r1124 - pkg/R

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

Author: jombart
Date: 2013-05-14 15:39:54 +0200 (Tue, 14 May 2013)
New Revision: 1124

Modified:
   pkg/R/auxil.R
Log:
Fixes to auxiliary color functions

Modified: pkg/R/auxil.R
===================================================================
--- pkg/R/auxil.R	2013-05-14 13:39:35 UTC (rev 1123)
+++ pkg/R/auxil.R	2013-05-14 13:39:54 UTC (rev 1124)
@@ -196,7 +196,8 @@
 ###########
 ## translate numeric values into colors of a palette
 num2col <- function(x, col.pal=heat.colors, reverse=FALSE,
-                    x.min=min(x), x.max=max(x), na.col="green"){
+                    x.min=min(x,na.rm=TRUE), x.max=max(x,na.rm=TRUE),
+                    na.col="green"){
     ## if(any(is.na(x))) warning("NAs detected in x")
     x[x < x.min] <- x.min
     x[x > x.max] <- x.max