[adegenet-commits] r563 - pkg/R

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

Author: jombart
Date: 2010-02-11 16:09:03 +0100 (Thu, 11 Feb 2010)
New Revision: 563

Modified:
   pkg/R/haploPop.R
Log:
ljkaspodjaopsijdx


Modified: pkg/R/haploPop.R
===================================================================
--- pkg/R/haploPop.R	2010-02-08 18:17:35 UTC (rev 562)
+++ pkg/R/haploPop.R	2010-02-11 15:09:03 UTC (rev 563)
@@ -447,7 +447,7 @@
     n <- length(x)
 
     f1 <- function(a,b){
-        return(sum(!union(a,b) %in% intersect(a,b)))
+        return(sum(!union(unlist(a),unlist(b)) %in% intersect(unlist(a),unlist(b))))
     }
 
     ## res <- outer(x, x, FUN=f1)