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

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

Author: psolymos
Date: 2013-07-16 21:37:52 +0200 (Tue, 16 Jul 2013)
New Revision: 2570

Modified:
   pkg/vegan/R/adipart.default.R
   pkg/vegan/R/hiersimu.default.R
   pkg/vegan/R/multipart.default.R
   pkg/vegan/R/vegdist.R
Log:
fixes after running utils:::aspell with filter='R'

Modified: pkg/vegan/R/adipart.default.R
===================================================================
--- pkg/vegan/R/adipart.default.R	2013-07-16 17:30:38 UTC (rev 2569)
+++ pkg/vegan/R/adipart.default.R	2013-07-16 19:37:52 UTC (rev 2570)
@@ -24,7 +24,7 @@
     ## check proper design of the model frame
     l1 <- sapply(rhs, function(z) length(unique(z)))
     if (!any(sapply(2:nlevs, function(z) l1[z] <= l1[z-1])))
-        stop("number of levels are inapropriate, check sequence")
+        stop("number of levels are inappropriate, check sequence")
     rval <- list()
     rval[[1]] <- rhs[,nlevs]
     nCol <- nlevs - 1

Modified: pkg/vegan/R/hiersimu.default.R
===================================================================
--- pkg/vegan/R/hiersimu.default.R	2013-07-16 17:30:38 UTC (rev 2569)
+++ pkg/vegan/R/hiersimu.default.R	2013-07-16 19:37:52 UTC (rev 2570)
@@ -18,7 +18,7 @@
     ## check proper design of the model frame
     l1 <- sapply(rhs, function(z) length(unique(z)))
     if (!any(sapply(2:nlevs, function(z) l1[z] <= l1[z-1])))
-        stop("number of levels are inapropriate, check sequence")
+        stop("number of levels are inappropriate, check sequence")
     rval <- list()
     rval[[1]] <- rhs[,nlevs]
     nCol <- nlevs - 1

Modified: pkg/vegan/R/multipart.default.R
===================================================================
--- pkg/vegan/R/multipart.default.R	2013-07-16 17:30:38 UTC (rev 2569)
+++ pkg/vegan/R/multipart.default.R	2013-07-16 19:37:52 UTC (rev 2570)
@@ -26,7 +26,7 @@
      ## check proper design of the model frame
     l1 <- sapply(rhs, function(z) length(unique(z)))
     if (!any(sapply(2:nlevs, function(z) l1[z] <= l1[z-1])))
-        stop("number of levels are inapropriate, check sequence")
+        stop("number of levels are inappropriate, check sequence")
     rval <- list()
     rval[[1]] <- rhs[,nlevs]
     nCol <- nlevs - 1

Modified: pkg/vegan/R/vegdist.R
===================================================================
--- pkg/vegan/R/vegdist.R	2013-07-16 17:30:38 UTC (rev 2569)
+++ pkg/vegan/R/vegdist.R	2013-07-16 19:37:52 UTC (rev 2570)
@@ -22,7 +22,7 @@
         warning("results may be meaningless because data have negative entries in method ",
                 dQuote(inm))
     if (method == 11 && any(colSums(x) == 0)) 
-        warning("data have empty species which influence the results im method ",
+        warning("data have empty species which influence the results in method ",
                 dQuote(inm))
     if (method == 6) # gower, but no altGower
         x <- decostand(x, "range", 2, na.rm = TRUE, ...)