[adegenet-commits] r460 - pkg/R

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

Author: jombart
Date: 2009-10-21 20:13:43 +0200 (Wed, 21 Oct 2009)
New Revision: 460

Modified:
   pkg/R/scale.R
Log:
Small tweak when scale arg is provided to scaleGen.


Modified: pkg/R/scale.R
===================================================================
--- pkg/R/scale.R	2009-10-20 10:35:47 UTC (rev 459)
+++ pkg/R/scale.R	2009-10-21 18:13:43 UTC (rev 460)
@@ -18,7 +18,7 @@
     }
 
     ## handle specific cases
-    if(scale & tolower(method)=="binom"){
+    if(scale[1] & tolower(method)=="binom"){
         ## get allele freq
         temp <- apply(x$tab,2,mean,na.rm=TRUE)
         if(x at type=="codom"){
@@ -75,7 +75,7 @@
     }
 
     ## handle specific cases
-    if(scale & tolower(method)=="binom"){
+    if(scale[1] & tolower(method)=="binom"){
         ## get allele freq
         temp <- apply(X,2,mean,na.rm=TRUE)
         if(x at type=="codom"){