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

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

Author: jarioksa
Date: 2011-05-28 15:22:20 +0200 (Sat, 28 May 2011)
New Revision: 1610

Modified:
   pkg/vegan/R/capscale.R
Log:
capscale survives missing constrained component and plotting

Modified: pkg/vegan/R/capscale.R
===================================================================
--- pkg/vegan/R/capscale.R	2011-05-27 08:21:20 UTC (rev 1609)
+++ pkg/vegan/R/capscale.R	2011-05-28 13:22:20 UTC (rev 1610)
@@ -131,7 +131,9 @@
     } else {
         ## input data were dissimilarities, and no 'comm' defined:
         ## species scores make no sense and are made NA
-        sol$CA$v.eig <- sol$CA$v <- sol$CCA$v <- sol$CCA$v.eig <- NA
+        sol$CA$v.eig[] <- sol$CA$v[] <- NA
+        if (!is.null(sol$CCA))
+            sol$CCA$v.eig[] <- sol$CCA$v[] <- NA
         sol$colsum <- NA
     }
     if (!is.null(sol$CCA))