[adegenet-commits] r329 - pkg/R

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

Author: jombart
Date: 2009-05-27 20:55:26 +0200 (Wed, 27 May 2009)
New Revision: 329

Modified:
   pkg/R/seqTrack.R
Log:
Sunflower now has a heart. Yet of a discussable color.


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-05-27 18:06:13 UTC (rev 328)
+++ pkg/R/seqTrack.R	2009-05-27 18:55:26 UTC (rev 329)
@@ -249,6 +249,7 @@
     nullLength <- (x.from==x.to) & (y.from==y.to)
 
     if(any(nullLength) & plot) {
+        points(x.from[nullLength], y.from[nullLength], col=col[nullLength], cex=2, pch=20, ...)
         sunflowerplot(x.from[nullLength], y.from[nullLength], seg.lwd=2, size=1/6,
                       col=col[nullLength], seg.col=col[nullLength], add=TRUE, ...)
     }