[adegenet-commits] r304 - pkg/R

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

Author: jombart
Date: 2009-04-30 23:05:38 +0200 (Thu, 30 Apr 2009)
New Revision: 304

Modified:
   pkg/R/seqTrack.R
Log:
00000000


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-04-30 20:20:36 UTC (rev 303)
+++ pkg/R/seqTrack.R	2009-04-30 21:05:38 UTC (rev 304)
@@ -97,7 +97,7 @@
         }
 
         temp <- sapply(CURRENTPATH, checkEndCurrentPath)
-        if(all(temp)) return(TRUE)
+        if(all(temp)) return(TRUE) # if all paths are ended
         return(FALSE)
     } # end checkEndCurrentPath
 
@@ -111,9 +111,21 @@
         ## WHILE LOOP ##
         keepSearching <- TRUE
         while(keepSearching){
+            for(i in length(CURRENTPATH)){
+                temp <- CURRENPATH[[1]]
 
+            }
+
+
+
             temp <- findExistingPath(id) # search for an already existing path
+            if(!is.null(temp))
             keepSearching <- !checkEndCurrentPath() # stop searching if all paths are ended
+
+
+
+
+
         }
 
         INPATH.up() # update id with known paths