[Vegan-commits] r2486 - in pkg/vegan: . R inst man

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

Author: jarioksa
Date: 2013-04-08 19:10:52 +0200 (Mon, 08 Apr 2013)
New Revision: 2486

Modified:
   pkg/vegan/NAMESPACE
   pkg/vegan/R/print.betadisper.R
   pkg/vegan/inst/ChangeLog
   pkg/vegan/man/betadisper.Rd
Log:
janitorial after r2485: betadisper medoid and print rewrite

Modified: pkg/vegan/NAMESPACE
===================================================================
--- pkg/vegan/NAMESPACE	2013-04-07 20:19:34 UTC (rev 2485)
+++ pkg/vegan/NAMESPACE	2013-04-08 17:10:52 UTC (rev 2486)
@@ -152,6 +152,7 @@
 # drop1: stats
 S3method(drop1, cca)
 # eigenvals: vegan
+S3method(eigenvals, betadisper)
 S3method(eigenvals, cca)
 S3method(eigenvals, default)
 S3method(eigenvals, dudi)

Modified: pkg/vegan/R/print.betadisper.R
===================================================================
--- pkg/vegan/R/print.betadisper.R	2013-04-07 20:19:34 UTC (rev 2485)
+++ pkg/vegan/R/print.betadisper.R	2013-04-08 17:10:52 UTC (rev 2486)
@@ -13,7 +13,7 @@
     cat(paste("\nNo. of Negative Eigenvalues:", sum(x$eig < 0)))
     cat("\n\n")
     type <- ifelse(isTRUE(all.equal(attr(x, "type"), "median")),
-                   "mediod", "centroid")
+                   "medoid", "centroid")
     writeLines(strwrap(paste0("Average distance to ", type, ":\n")))
     print.default(tapply(x$distances, x$group, mean), digits = digits)
     cat("\n")

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2013-04-07 20:19:34 UTC (rev 2485)
+++ pkg/vegan/inst/ChangeLog	2013-04-08 17:10:52 UTC (rev 2486)
@@ -8,7 +8,7 @@
 	one group (i.e., in estimating the overall beta diversity in the
 	data). Reported by Pierre Legendre.
 
-	Now correctly reports distance to "mediod" in the print method
+	Now correctly reports distance to "medoid" in the print method
 	when type = "median". Reported by Pierre Legendre. The print
 	method also now shows only the first 8 eigenvalues.
 

Modified: pkg/vegan/man/betadisper.Rd
===================================================================
--- pkg/vegan/man/betadisper.Rd	2013-04-07 20:19:34 UTC (rev 2485)
+++ pkg/vegan/man/betadisper.Rd	2013-04-08 17:10:52 UTC (rev 2486)
@@ -260,7 +260,7 @@
 scrs <- scores(mod)
 str(scrs)
 head(scores(mod, 1:4, display = "sites"))
-# group centroids/mediods 
+# group centroids/medoids 
 scores(mod, 1:4, display = "centroids")
 # eigenvalues from the underlying principal coordinates analysis
 eigenvals(mod)