Merge branch 'issue-#190'

vegandevs · Aug 23, 2016 · d6ba8b9 · d6ba8b9
2 parents fe46be7 + 4026ba4
commit d6ba8b9
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/goodness.cca.R b/R/goodness.cca.R
@@ -20,6 +20,12 @@
     ## imaginary dimensions for dbrda
     if (inherits(object, "dbrda"))
         CA <- cbind(CA, object[[model]][["imaginary.u"]])
+    ## take only chosen axes within the component
+    if (!missing(choices)) {
+        choices <- choices[choices <= ncol(CA)]
+        CA <- CA[, choices, drop = FALSE]
+        eig <- eig[choices]
+    }
     att <- attributes(CA)
     if (inherits(object, "rda"))
         nr <- nobs(object) - 1