[adegenet-commits] r328 - pkg/R

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

Author: jombart
Date: 2009-05-27 20:06:13 +0200 (Wed, 27 May 2009)
New Revision: 328

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


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-05-27 16:57:02 UTC (rev 327)
+++ pkg/R/seqTrack.R	2009-05-27 18:06:13 UTC (rev 328)
@@ -249,8 +249,8 @@
     nullLength <- (x.from==x.to) & (y.from==y.to)
 
     if(any(nullLength) & plot) {
-        sunflowerplot(x.from[nullLength], y.from[nullLength], lwd=2,
-                      col=col[nullLength], seq.col=col[nullLength], add=TRUE, ...)
+        sunflowerplot(x.from[nullLength], y.from[nullLength], seg.lwd=2, size=1/6,
+                      col=col[nullLength], seg.col=col[nullLength], add=TRUE, ...)
     }