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

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

Author: jarioksa
Date: 2009-09-02 16:48:38 +0200 (Wed, 02 Sep 2009)
New Revision: 984

Modified:
   pkg/vegan/R/ordiNAexclude.R
Log:
do not use NA for removed species scores: that was a Bad Idea(Patent Pending) originally

Modified: pkg/vegan/R/ordiNAexclude.R
===================================================================
--- pkg/vegan/R/ordiNAexclude.R	2009-09-02 14:46:18 UTC (rev 983)
+++ pkg/vegan/R/ordiNAexclude.R	2009-09-02 14:48:38 UTC (rev 984)
@@ -26,17 +26,5 @@
     wa.eig <- sweep(wa, 2, sqrt(object$CA$eig), "*")
     object$CA$u[nas,] <- wa
     object$CA$u.eig[nas,] <- wa.eig
-    ## Use NA also for excluded species with this option
-    nap <- if (!is.null(object$CCA))
-        attr(object$CCA$v, "na.action")
-    else
-        attr(object$CA$v, "na.action")
-    if (!is.null(nap)) {
-        object$colsum <- napredict(nap, object$colsum)
-        object$CCA$v <- napredict(nap, object$CCA$v)
-        object$CCA$v.eig <- napredict(nap, object$CCA$v.eig)
-        object$CA$v <- napredict(nap, object$CA$v)
-        object$CA$v.eig <- napredict(nap, object$CA$v.eig)
-    }
     object
 }