[adegenet-commits] r769 - pkg/R

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

Author: jombart
Date: 2011-01-19 10:44:52 +0100 (Wed, 19 Jan 2011)
New Revision: 769

Modified:
   pkg/R/glFunctions.R
Log:
commented tests


Modified: pkg/R/glFunctions.R
===================================================================
--- pkg/R/glFunctions.R	2011-01-18 18:34:37 UTC (rev 768)
+++ pkg/R/glFunctions.R	2011-01-19 09:44:52 UTC (rev 769)
@@ -389,16 +389,16 @@
 
 ## ## LARGE SCALE TEST ##
 ## ## perform glPca
-M <- matrix(sample(c(0,1), 100*1e6, replace=TRUE), nrow=100)
-x <- new("genlight",M)
-system.time(toto <- glPca(x, nf=4, n.core=6))
-system.time(titi <- dudi.pca(M,center=TRUE,scale=FALSE, scannf=FALSE, nf=4))
+## M <- matrix(sample(c(0,1), 100*1e6, replace=TRUE), nrow=100)
+## x <- new("genlight",M)
+## system.time(toto <- glPca(x, nf=4, n.core=6))
+## system.time(titi <- dudi.pca(M,center=TRUE,scale=FALSE, scannf=FALSE, nf=4))
 
 
 
-round(cor(toto$scores),10) # must be diag(1,4)
-round(t(toto$loadings) %*% toto$loadings,10) # must be diag(1,4)
+## round(cor(toto$scores),10) # must be diag(1,4)
+## round(t(toto$loadings) %*% toto$loadings,10) # must be diag(1,4)
 
-## comparison ade4 / adegenet
-all(round(abs(titi$c1),8) == round(abs(toto$loadings),8))
-all(round(abs(titi$li),8) == round(abs(toto$scores),8))
+## ## comparison ade4 / adegenet
+## all(round(abs(titi$c1),8) == round(abs(toto$loadings),8))
+## all(round(abs(titi$li),8) == round(abs(toto$scores),8))