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

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

Author: psolymos
Date: 2012-07-12 21:03:44 +0200 (Thu, 12 Jul 2012)
New Revision: 2230

Modified:
   pkg/vegan/R/adipart.default.R
   pkg/vegan/R/adipart.formula.R
   pkg/vegan/R/hiersimu.default.R
   pkg/vegan/R/hiersimu.formula.R
   pkg/vegan/R/multipart.default.R
   pkg/vegan/R/multipart.formula.R
Log:
code annotation clean-up

Modified: pkg/vegan/R/adipart.default.R
===================================================================
--- pkg/vegan/R/adipart.default.R	2012-07-11 06:21:22 UTC (rev 2229)
+++ pkg/vegan/R/adipart.default.R	2012-07-12 19:03:44 UTC (rev 2230)
@@ -21,7 +21,7 @@
         colnames(rhs) <- paste("level", 1:nlevs, sep="_")
     tlab <- colnames(rhs)
 
-    ## part check proper design of the model frame
+    ## 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")

Modified: pkg/vegan/R/adipart.formula.R
===================================================================
--- pkg/vegan/R/adipart.formula.R	2012-07-11 06:21:22 UTC (rev 2229)
+++ pkg/vegan/R/adipart.formula.R	2012-07-12 19:03:44 UTC (rev 2230)
@@ -10,7 +10,7 @@
     formula[[2]] <- NULL
     rhs <- model.frame(formula, data, drop.unused.levels = TRUE)
 
-    ## part check proper design of the model frame
+    ## check proper design of the model frame
     noint <- attr(attr(attr(rhs, "terms"), "factors"), "dimnames")[[1]]
     int <- attr(attr(attr(rhs, "terms"), "factors"), "dimnames")[[2]]
     if (!identical(noint, int))

Modified: pkg/vegan/R/hiersimu.default.R
===================================================================
--- pkg/vegan/R/hiersimu.default.R	2012-07-11 06:21:22 UTC (rev 2229)
+++ pkg/vegan/R/hiersimu.default.R	2012-07-12 19:03:44 UTC (rev 2230)
@@ -15,7 +15,7 @@
         colnames(rhs) <- paste("level", 1:nlevs, sep="_")
     tlab <- colnames(rhs)
 
-    ## part check proper design of the model frame
+    ## 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")

Modified: pkg/vegan/R/hiersimu.formula.R
===================================================================
--- pkg/vegan/R/hiersimu.formula.R	2012-07-11 06:21:22 UTC (rev 2229)
+++ pkg/vegan/R/hiersimu.formula.R	2012-07-12 19:03:44 UTC (rev 2230)
@@ -10,7 +10,7 @@
     formula[[2]] <- NULL
     rhs <- model.frame(formula, data, drop.unused.levels = TRUE)
 
-    ## part check proper design of the model frame
+    ## check proper design of the model frame
     noint <- attr(attr(attr(rhs, "terms"), "factors"), "dimnames")[[1]]
     int <- attr(attr(attr(rhs, "terms"), "factors"), "dimnames")[[2]]
     if (!identical(noint, int))

Modified: pkg/vegan/R/multipart.default.R
===================================================================
--- pkg/vegan/R/multipart.default.R	2012-07-11 06:21:22 UTC (rev 2229)
+++ pkg/vegan/R/multipart.default.R	2012-07-12 19:03:44 UTC (rev 2230)
@@ -23,7 +23,7 @@
         colnames(rhs) <- paste("level", 1:nlevs, sep="_")
     tlab <- colnames(rhs)
 
-     ## part check proper design of the model frame
+     ## 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")

Modified: pkg/vegan/R/multipart.formula.R
===================================================================
--- pkg/vegan/R/multipart.formula.R	2012-07-11 06:21:22 UTC (rev 2229)
+++ pkg/vegan/R/multipart.formula.R	2012-07-12 19:03:44 UTC (rev 2230)
@@ -10,7 +10,7 @@
     formula[[2]] <- NULL
     rhs <- model.frame(formula, data, drop.unused.levels = TRUE)
 
-    ## part check proper design of the model frame
+    ## check proper design of the model frame
     noint <- attr(attr(attr(rhs, "terms"), "factors"), "dimnames")[[1]]
     int <- attr(attr(attr(rhs, "terms"), "factors"), "dimnames")[[2]]
     if (!identical(noint, int))