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

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

Author: psolymos
Date: 2008-11-19 04:28:04 +0100 (Wed, 19 Nov 2008)
New Revision: 573

Modified:
   pkg/vegan/R/adipart.R
Log:
NULL dimnames in strat table caused warnings: fixed


Modified: pkg/vegan/R/adipart.R
===================================================================
--- pkg/vegan/R/adipart.R	2008-11-19 02:39:13 UTC (rev 572)
+++ pkg/vegan/R/adipart.R	2008-11-19 03:28:04 UTC (rev 573)
@@ -41,8 +41,8 @@
         else out[,i] <- interaction(out[,(i-1)], stra[,(i+1)], drop=TRUE)
         levels(out[,i]) <- 1:nlevels(out[,i])}
     out <- out[,c(nc:1)]
-    colnames(out) <- NULL
-    rownames(out) <- NULL
+    colnames(out) <- paste("x", 1:ncol(out), sep="")
+    rownames(out) <- 1:nrow(out)
     return(out)}
 ## internal !!!f <- nestFactor(x)
 adpTrad <- function(y, f, index, weights="unif", serr=TRUE){