[adegenet-commits] r532 - pkg/R

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

Author: jombart
Date: 2010-01-14 12:54:50 +0100 (Thu, 14 Jan 2010)
New Revision: 532

Modified:
   pkg/R/spca.R
Log:
Corrected a bug in summary.spca.


Modified: pkg/R/spca.R
===================================================================
--- pkg/R/spca.R	2010-01-13 16:03:21 UTC (rev 531)
+++ pkg/R/spca.R	2010-01-14 11:54:50 UTC (rev 532)
@@ -216,7 +216,7 @@
   ## compute original pca
   # prepare data
   obj <- eval(appel$obj)
-  if(is.null(appel$truenames)) truenames <- FALSE
+  if(is.null(appel$truenames)) appel$truenames <- FALSE
 
   f1 <- function(vec){
     m <- mean(vec,na.rm=TRUE)
@@ -229,7 +229,7 @@
 
   X <- apply(X,2,f1)
 
-  if(truenames){
+  if(appel$truenames){
     rownames(X) <- rownames(truenames(obj))
     colnames(X) <- colnames(truenames(obj))
   }