[Vegan-commits] r922 - in pkg/vegan: R inst

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

Author: jarioksa
Date: 2009-08-12 22:10:58 +0200 (Wed, 12 Aug 2009)
New Revision: 922

Modified:
   pkg/vegan/R/summary.poolaccum.R
   pkg/vegan/inst/ChangeLog
Log:
summary (and hence plot) work for estaccumR

Modified: pkg/vegan/R/summary.poolaccum.R
===================================================================
--- pkg/vegan/R/summary.poolaccum.R	2009-08-12 20:09:27 UTC (rev 921)
+++ pkg/vegan/R/summary.poolaccum.R	2009-08-12 20:10:58 UTC (rev 922)
@@ -2,7 +2,10 @@
     function(object, display, alpha = 0.05, ...)
 {
     probs <- c(alpha/2, 1-alpha/2)
-    dislabels <- c("S", "chao", "jack1", "jack2", "boot")
+    if (inherits(object, "estaccumR"))
+        dislabels <- c("S", "chao", "ace")
+    else
+        dislabels <- c("S", "chao", "jack1", "jack2", "boot")
     disnames <- colnames(object$means[,-1])
     names(disnames) <- dislabels
     if (missing(display))

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2009-08-12 20:09:27 UTC (rev 921)
+++ pkg/vegan/inst/ChangeLog	2009-08-12 20:10:58 UTC (rev 922)
@@ -13,8 +13,8 @@
 
 	* estaccum: new function similar to 'poolaccum', but uses
 	'estimateR' for individual (count) based estimates of extrapolated
-	richness. Inherits from 'poolaccum', but only 'print' works
-	recently. Still undocumented.
+	richness. Inherits from 'poolaccum' and uses its print, summary
+	and plot methods. Still undocumented.
 	
 Version 1.16-22 (closed August 11, 2009)