[adegenet-commits] r331 - pkg/R

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

Author: jombart
Date: 2009-05-28 12:13:59 +0200 (Thu, 28 May 2009)
New Revision: 331

Modified:
   pkg/R/seqTrack.R
Log:
One more tweak, output now returns ambiguous dates.


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-05-28 10:12:58 UTC (rev 330)
+++ pkg/R/seqTrack.R	2009-05-28 10:13:59 UTC (rev 331)
@@ -259,8 +259,8 @@
 
     ## RESULT ##
     res <- data.frame(x.from, y.from, x.to, y.to, col=col)
-    if(!is.null(arr.length)) {
-        res <- cbind.data.frame(res, arr.length)
+    if(!is.null(isAmbig)) {
+        res <- cbind.data.frame(res, isAmbig)
     }
     return(invisible(res))
 } # end plotSeqTrack