[adegenet-commits] r492 - pkg/R

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

Author: jombart
Date: 2009-11-23 22:55:08 +0100 (Mon, 23 Nov 2009)
New Revision: 492

Modified:
   pkg/R/haploPop.R
Log:
Can't remember what I changed...


Modified: pkg/R/haploPop.R
===================================================================
--- pkg/R/haploPop.R	2009-11-23 11:51:49 UTC (rev 491)
+++ pkg/R/haploPop.R	2009-11-23 21:55:08 UTC (rev 492)
@@ -701,7 +701,7 @@
             if(N > samp.size){
                 return(dist.haploPop(sample.haploPop(list.pop, samp.size, keep.pop=FALSE), add.root=FALSE)) # do not include the root in distances.
             } else {
-                return(dist.haploPop(list.pop, add.root=TRUE))
+                return(dist.haploPop(list.pop, add.root=FALSE))
             }
         } # end fRes
     }