[adegenet-commits] r578 - pkg/R

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

Author: jombart
Date: 2010-02-18 15:08:32 +0100 (Thu, 18 Feb 2010)
New Revision: 578

Modified:
   pkg/R/seqTrack.R
Log:
Fixed conversion to graph.


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2010-02-18 11:58:15 UTC (rev 577)
+++ pkg/R/seqTrack.R	2010-02-18 14:08:32 UTC (rev 578)
@@ -1135,8 +1135,9 @@
     labels <- rownames(from)
     from$ances <- labels[from$ances]
 
+
     ## CONVERT TO GRAPH
-    res <- ftM2graphNEL(ft=cbind(from$ances, from$id), W=from$weight, edgemode = "directed")
+    res <- ftM2graphNEL(ft=cbind(from$ances, labels), W=from$weight, edgemode = "directed")
     return(res)
 })