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

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

Author: jarioksa
Date: 2015-09-09 10:19:06 +0200 (Wed, 09 Sep 2015)
New Revision: 2959

Modified:
   pkg/vegan/R/alias.cca.R
Log:
Merge branch 'cran-2.3' into r-forge-svn-local

Modified: pkg/vegan/R/alias.cca.R
===================================================================
--- pkg/vegan/R/alias.cca.R	2015-08-28 08:24:02 UTC (rev 2958)
+++ pkg/vegan/R/alias.cca.R	2015-09-09 08:19:06 UTC (rev 2959)
@@ -1,8 +1,10 @@
 `alias.cca` <-
     function (object, names.only = FALSE, ...) 
 {
+    if (is.null(object$CCA))
+        stop("no constrained component, 'alias' cannot be applied")
     if (is.null(object$CCA$alias))
-        stop("no constrained component, 'alias' cannot be applied")
+        stop("no aliased terms")
     if (names.only)
         return(object$CCA$alias)
     CompPatt <- function(x, ...) {