[adegenet-commits] r576 - pkg/R

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

Author: jombart
Date: 2010-02-17 22:04:57 +0100 (Wed, 17 Feb 2010)
New Revision: 576

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


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2010-02-17 20:39:04 UTC (rev 575)
+++ pkg/R/seqTrack.R	2010-02-17 21:04:57 UTC (rev 576)
@@ -1132,6 +1132,8 @@
     if(!require(graph)) stop("package graph is required")
 
     from <- from[!is.na(from$ances),,drop=FALSE]
+    labels <- rownames(toto)
+    from$ances <- labels[from$ances]
 
     ## CONVERT TO GRAPH
     res <- ftM2graphNEL(ft=cbind(from$ances, from$id), W=from$weight, edgemode = "directed")