[adegenet-commits] r388 - pkg/R

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

Author: jombart
Date: 2009-06-09 20:30:23 +0200 (Tue, 09 Jun 2009)
New Revision: 388

Modified:
   pkg/R/haploSim.R
Log:
fix to date generation


Modified: pkg/R/haploSim.R
===================================================================
--- pkg/R/haploSim.R	2009-06-09 18:13:54 UTC (rev 387)
+++ pkg/R/haploSim.R	2009-06-09 18:30:23 UTC (rev 388)
@@ -504,6 +504,7 @@
     daterange <- range(res$dates,na.rm=TRUE)
 
     sampdates <- .rTimeSeq(mu0=mu0, L=L, n=length(truedates), maxNbDays=daterange/2)
+    sampdates <- truedates + abs(sampdates)
 
     res$dates <- sampdates