[adegenet-commits] r340 - pkg/R

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

Author: jombart
Date: 2009-06-02 10:49:12 +0200 (Tue, 02 Jun 2009)
New Revision: 340

Modified:
   pkg/R/seqTrack.R
Log:
Added TODO stuff to the file. Ready for breaking everything!


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-06-01 17:24:59 UTC (rev 339)
+++ pkg/R/seqTrack.R	2009-06-02 08:49:12 UTC (rev 340)
@@ -347,6 +347,9 @@
 ##############
 ## .pAbeforeB
 ##############
+##
+## TODO: replace mu0 and L by muA, muB, LA, LB
+##
 .pAbeforeB <- function(dateA, dateB, mu0, L, maxNbDays=100){
     temp <- .dTimeSeq(mu0, L, maxNbDays)
     days <- temp[[1]]
@@ -379,6 +382,12 @@
 #####################
 ## optimize.seqTrack
 #####################
+##
+## TODO:
+## 1) Change the output to retain xxx simulations
+## 2) VECTORIZE mu0 and seq.length, recycle if needed with a warning
+## 3) uncomment, adapt, and test code for missing data
+##
 optimize.seqTrack <- function(nsim, seq.names, seq.dates, W, thres, optim=c("min","max"),
                               proxMat=NULL, mu0, seq.length, rMissDate=.rUnifTimeSeq, ...){
 
@@ -545,6 +554,16 @@
 
 
 
+
+
+
+
+
+
+
+
+
+
 #########################
 ## OLD ADD-HOC VERSION
 #########################