[adegenet-commits] r477 - pkg/R

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

Author: jombart
Date: 2009-11-12 12:59:51 +0100 (Thu, 12 Nov 2009)
New Revision: 477

Modified:
   pkg/R/haploPop.R
Log:
SYntax error corrected


Modified: pkg/R/haploPop.R
===================================================================
--- pkg/R/haploPop.R	2009-11-12 11:58:03 UTC (rev 476)
+++ pkg/R/haploPop.R	2009-11-12 11:59:51 UTC (rev 477)
@@ -220,7 +220,7 @@
     N.empty <- sum(sapply(x$pop, function(e) length(e)==0))
     cat("\nNumber of unmutated genotypes :", N.empty)
 
-    if(length(x$pop) == length(x$ages) == length(x$S)){
+    if( (length(x$pop) == length(x$ages)) & (length(x$pop) == length(x$S)) ){
         cat("\nLengths of slots are consistent.")
     } else {
         warning("\nLengths of slots are NOT consistent.")