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

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

Author: gsimpson
Date: 2010-01-04 15:50:19 +0100 (Mon, 04 Jan 2010)
New Revision: 1096

Modified:
   pkg/vegan/R/betadisper.R
   pkg/vegan/man/betadisper.Rd
Log:
make 'media' the default type for analysis in betadisper

Modified: pkg/vegan/R/betadisper.R
===================================================================
--- pkg/vegan/R/betadisper.R	2010-01-04 13:46:39 UTC (rev 1095)
+++ pkg/vegan/R/betadisper.R	2010-01-04 14:50:19 UTC (rev 1096)
@@ -1,11 +1,13 @@
 `betadisper` <-
-    function(d, group, type = c("centroid","median"))
+    function(d, group, type = c("median","centroid"))
 {
     ## Tolerance for zero Eigenvalues
     TOL <- 1e-7
     ## uses code from stats:::cmdscale by R Core Development Team
     if(!inherits(d, "dist"))
         stop("distances 'd' must be a 'dist' object")
+    if(missing(type))
+        type <- "median"
     type <- match.arg(type)
     ## checks for groups - need to be a factor for later
     if(!is.factor(group))

Modified: pkg/vegan/man/betadisper.Rd
===================================================================
--- pkg/vegan/man/betadisper.Rd	2010-01-04 13:46:39 UTC (rev 1095)
+++ pkg/vegan/man/betadisper.Rd	2010-01-04 14:50:19 UTC (rev 1096)
@@ -26,7 +26,7 @@
   Tukey's 'Honest Significant Difference' method.
 }
 \usage{
-betadisper(d, group, type = c("centroid","median"))
+betadisper(d, group, type = c("median","centroid"))
 
 \method{anova}{betadisper}(object, \dots)