[adegenet-commits] r391 - pkg/R

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

Author: jombart
Date: 2009-06-10 15:29:46 +0200 (Wed, 10 Jun 2009)
New Revision: 391

Modified:
   pkg/R/haploSim.R
Log:
small fix, number of mutations taken instead of prop


Modified: pkg/R/haploSim.R
===================================================================
--- pkg/R/haploSim.R	2009-06-10 11:28:41 UTC (rev 390)
+++ pkg/R/haploSim.R	2009-06-10 13:29:46 UTC (rev 391)
@@ -368,6 +368,7 @@
     seq.names <- labels(x)
     seq.dates <- as.POSIXct(x)
     seq.length <- ncol(x$seq)
+    myX <- myX * seq.length
     prevCall <- as.list(x$call)
     if(is.null(prevCall$mu)){
         mu0 <- 0.0001