[Vegan-commits] r835 - pkg/vegan/R

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

Author: gsimpson
Date: 2009-05-29 23:13:44 +0200 (Fri, 29 May 2009)
New Revision: 835

Modified:
   pkg/vegan/R/panel.ordi.R
Log:
typo bug in panel.ordi when using ps

Modified: pkg/vegan/R/panel.ordi.R
===================================================================
--- pkg/vegan/R/panel.ordi.R	2009-05-29 21:06:27 UTC (rev 834)
+++ pkg/vegan/R/panel.ordi.R	2009-05-29 21:13:44 UTC (rev 835)
@@ -11,8 +11,8 @@
     }
     if ("biplot" %in% type && !is.null(biplot$centres)) {
         panel.xyplot(biplot$centres[,2], biplot$centres[,1],
-                     col = ps$col, 
-                     pch = "+", cex = 3*tps$cex, lwd=2,
+                     col = ps$col,
+                     pch = "+", cex = 3*ps$cex, lwd=2,
                      ...)
     }
     if ("arrows" %in% type) {
@@ -24,13 +24,13 @@
 
 ## needed for "arrows" %in% type
 panel.ordiarrows <-
-function(x, y, subscripts, 
-         ends = "last", type = "open", length = 0.25, angle = 30, ...) 
+function(x, y, subscripts,
+         ends = "last", type = "open", length = 0.25, angle = 30, ...)
 {
     n <- length(x)
     panel.arrows(x[-n], y[-n], x[-1], y[-1], ends = ends, type = "open",
-                 length = length, angle = angle, code = code, 
+                 length = length, angle = angle, code = code,
                  col = trellis.par.get("superpose.line")$col,
-                 lwd = trellis.par.get("superpose.line")$lwd, 
-                 ) 
+                 lwd = trellis.par.get("superpose.line")$lwd,
+                 )
 }