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

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

Author: jarioksa
Date: 2013-03-04 18:05:14 +0100 (Mon, 04 Mar 2013)
New Revision: 2463

Modified:
   pkg/vegan/R/print.specaccum.R
Log:
also print Individuals and zapsmall for prettier figures in print.specaccum

Modified: pkg/vegan/R/print.specaccum.R
===================================================================
--- pkg/vegan/R/print.specaccum.R	2013-03-04 13:25:36 UTC (rev 2462)
+++ pkg/vegan/R/print.specaccum.R	2013-03-04 17:05:14 UTC (rev 2463)
@@ -1,4 +1,4 @@
-"print.specaccum" <-
+`print.specaccum` <-
     function(x, ...)
 {
     cat("Species Accumulation Curve\n")
@@ -8,9 +8,9 @@
     }
     cat("\n")
     cat("Call:", deparse(x$call), "\n\n")
-    mat <- rbind(Sites = x$sites, Effort = x$effort, Richness = x$richness,
-                 sd=x$sd)
+    mat <- rbind(Sites = x$sites, Individuals = x$individuals, Effort = x$effort,
+                 Richness = x$richness, sd=x$sd)
     colnames(mat) <- rep("", ncol(mat))
-    print(mat)
+    print(zapsmall(mat))
     invisible(x)
 }