[adegenet-commits] r321 - pkg/R

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

Author: jombart
Date: 2009-05-22 14:09:59 +0200 (Fri, 22 May 2009)
New Revision: 321

Modified:
   pkg/R/seqTrack.R
Log:
fix in .gDate...


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-05-22 11:34:06 UTC (rev 320)
+++ pkg/R/seqTrack.R	2009-05-22 12:09:59 UTC (rev 321)
@@ -268,7 +268,7 @@
 .dTimeSeq <- function(mu0, L, maxNbDays=100){
     mu <- mu0/365 # mutation rate / site / day
     t <- 0:maxNbDays # in days added / substracted
-    Pt <- (1-mu)^(t*seq.length)
+    Pt <- (1-mu)^(t*L)
     t <- c(-rev(t[-1]), t)
     Pt <- c(rev(Pt[-1]), Pt)
     return(list(t, Pt))