[adegenet-commits] r579 - pkg/R

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

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

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


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2010-02-18 14:08:32 UTC (rev 578)
+++ pkg/R/seqTrack.R	2010-02-18 14:08:53 UTC (rev 579)
@@ -1135,6 +1135,8 @@
     labels <- rownames(from)
     from$ances <- labels[from$ances]
 
+    temp <- cbind(from$ances, labels)
+    temp <- temp[!is.na(from$ances),,drop=FALSE]
 
     ## CONVERT TO GRAPH
     res <- ftM2graphNEL(ft=cbind(from$ances, labels), W=from$weight, edgemode = "directed")