[Vegan-commits] r1169 - branches/1.17/R

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

Author: jarioksa
Date: 2010-03-08 09:16:44 +0100 (Mon, 08 Mar 2010)
New Revision: 1169

Modified:
   branches/1.17/R/screeplot.cca.R
   branches/1.17/R/screeplot.prcomp.R
   branches/1.17/R/screeplot.princomp.R
Log:
screeplot.*.R really honour 'pch' for brokenstick line

Modified: branches/1.17/R/screeplot.cca.R
===================================================================
--- branches/1.17/R/screeplot.cca.R	2010-03-04 16:00:04 UTC (rev 1168)
+++ branches/1.17/R/screeplot.cca.R	2010-03-08 08:16:44 UTC (rev 1169)
@@ -48,7 +48,7 @@
         else
             par("pch")
         lines(mids, ord.bstick[comps], type = ptype, col = bst.col,
-              lty = bst.lty)
+              lty = bst.lty, pch = pch)
         if(legend) {
             col <- if("col" %in% dot.nams)
                 dot.args$col

Modified: branches/1.17/R/screeplot.prcomp.R
===================================================================
--- branches/1.17/R/screeplot.prcomp.R	2010-03-04 16:00:04 UTC (rev 1168)
+++ branches/1.17/R/screeplot.prcomp.R	2010-03-08 08:16:44 UTC (rev 1169)
@@ -40,7 +40,7 @@
         else
             par("pch")
         lines(mids, ord.bstick[comps], type = ptype, col = bst.col,
-              lty = bst.lty)
+              lty = bst.lty, pch = pch)
         if(legend) {
             col <- if("col" %in% dot.nams)
                 dot.args$col

Modified: branches/1.17/R/screeplot.princomp.R
===================================================================
--- branches/1.17/R/screeplot.princomp.R	2010-03-04 16:00:04 UTC (rev 1168)
+++ branches/1.17/R/screeplot.princomp.R	2010-03-08 08:16:44 UTC (rev 1169)
@@ -40,7 +40,7 @@
         else
             par("pch")
         lines(mids, ord.bstick[comps], type = ptype, col = bst.col,
-              lty = bst.lty)
+              lty = bst.lty, pch = pch)
         if(legend) {
             col <- if("col" %in% dot.nams)
                 dot.args$col