[adegenet-commits] r332 - pkg/R

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

Author: jombart
Date: 2009-05-28 12:30:57 +0200 (Thu, 28 May 2009)
New Revision: 332

Modified:
   pkg/R/seqTrack.R
Log:
Small fix on .pAbeforeB, was flooring numbers instead of rounding them.


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-05-28 10:13:59 UTC (rev 331)
+++ pkg/R/seqTrack.R	2009-05-28 10:30:57 UTC (rev 332)
@@ -332,7 +332,7 @@
     days <- temp[[1]]
     p <- temp[[2]]/sum(temp[[2]]) # proba distribution
 
-    nbDaysDiff <- as.integer(difftime(dateA,dateB,units="days")) # dateA - dateB, in days
+    nbDaysDiff <- as.integer(round(difftime(dateA,dateB,units="days"))) # dateA - dateB, in days
     daysA <- days
     daysB <- days - nbDaysDiff