[Vegan-commits] r2613 - in pkg/vegan: R man

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

Author: jarioksa
Date: 2013-09-10 09:49:51 +0200 (Tue, 10 Sep 2013)
New Revision: 2613

Modified:
   pkg/vegan/R/print.betadisper.R
   pkg/vegan/man/betadisper.Rd
Log:
medoid -> median: people call observed points medoids, but we have the real median in mv space

Modified: pkg/vegan/R/print.betadisper.R
===================================================================
--- pkg/vegan/R/print.betadisper.R	2013-09-10 07:36:36 UTC (rev 2612)
+++ pkg/vegan/R/print.betadisper.R	2013-09-10 07:49:51 UTC (rev 2613)
@@ -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")),
-                   "medoid", "centroid")
+                   "median", "centroid")
     writeLines(strwrap(paste0("Average distance to ", type, ":\n")))
     print.default(tapply(x$distances, x$group, mean), digits = digits)
     cat("\n")

Modified: pkg/vegan/man/betadisper.Rd
===================================================================
--- pkg/vegan/man/betadisper.Rd	2013-09-10 07:36:36 UTC (rev 2612)
+++ pkg/vegan/man/betadisper.Rd	2013-09-10 07:49:51 UTC (rev 2613)
@@ -260,7 +260,7 @@
 scrs <- scores(mod)
 str(scrs)
 head(scores(mod, 1:4, display = "sites"))
-# group centroids/medoids 
+# group centroids/medians 
 scores(mod, 1:4, display = "centroids")
 # eigenvalues from the underlying principal coordinates analysis
 eigenvals(mod)