[adegenet-commits] r287 - pkg/R

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

Author: jombart
Date: 2009-04-01 19:21:44 +0200 (Wed, 01 Apr 2009)
New Revision: 287

Modified:
   pkg/R/scale.R
Log:
scaleGen is ok with PA


Modified: pkg/R/scale.R
===================================================================
--- pkg/R/scale.R	2009-04-01 17:11:25 UTC (rev 286)
+++ pkg/R/scale.R	2009-04-01 17:21:44 UTC (rev 287)
@@ -9,7 +9,7 @@
     THRES <- 1e-10
     method <- match.arg(method)
     missing <- match.arg(missing)
-    checkType(x)
+    ## checkType(x)
     if(method=="binom" & x at type=="PA") stop("This scaling is not available for presence/absence markers.")
 
     ## handle "missing" arg
@@ -64,7 +64,7 @@
     THRES <- 1e-10
     method <- match.arg(method)
     missing <- match.arg(missing)
-    checkType(x)
+    ## checkType(x)
     if(method=="binom" & x at type=="PA") stop("This scaling is not available for presence/absence markers.")
 
     ## make allele frequencies here