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

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

Author: jarioksa
Date: 2013-11-24 08:56:54 +0100 (Sun, 24 Nov 2013)
New Revision: 2749

Modified:
   pkg/vegan/R/anovacca.byterm.R
Log:
use drop.scope

Modified: pkg/vegan/R/anovacca.byterm.R
===================================================================
--- pkg/vegan/R/anovacca.byterm.R	2013-11-24 07:38:26 UTC (rev 2748)
+++ pkg/vegan/R/anovacca.byterm.R	2013-11-24 07:56:54 UTC (rev 2749)
@@ -45,9 +45,8 @@
 {
     nperm <- nrow(permutations)
     ## We need term labels but without Condition() terms
-    trms <- terms(object)
-    trmlab <- attr(trms, "term.labels")
-    trmlab <- trmlab[trmlab %in% attr(terms(object$terminfo),
+    trms <- drop.scope(object)
+    trmlab <- trms[trms %in% attr(terms(object$terminfo),
                                       "term.labels")]
     ## baseline: all terms
     big <- permutest(object, permutations, ...)