Merge branch 'biplot-regression'

vegandevs · Jun 8, 2024 · b26517a · b26517a
2 parents e1e5795 + e79613e
commit b26517a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/R/plot.cca.R b/R/plot.cca.R
@@ -59,19 +59,17 @@
         return(invisible(pl))
     }
     if (missing(xlim)) {
-        xlim <- range(g$species[, 1], g$sites[, 1], g$constraints[, 1],
-                      g$biplot[, 1],
+        xlim <- range(0, g$species[, 1], g$sites[, 1], g$constraints[, 1],
+                      g$biplot[, 1], g$regression[,1],
                       if (length(g$centroids) > 0 && all(is.na(g$centroids))) NA else g$centroids[, 1],
-                      g$default[, 1],
                       na.rm = TRUE)
     }
     if (!any(is.finite(xlim)))
         stop("no finite scores to plot")
     if (missing(ylim)) {
-        ylim <- range(g$species[, 2], g$sites[, 2], g$constraints[, 2],
-                      g$biplot[, 2],
+        ylim <- range(0, g$species[, 2], g$sites[, 2], g$constraints[, 2],
+                      g$biplot[, 2], g$regression[,2],
                       if (length(g$centroids) > 0 && all(is.na(g$centroids))) NA else g$centroids[, 2],
-                      g$default[, 2],
                       na.rm = TRUE)
     }
     plot(g[[1]], xlim = xlim, ylim = ylim, type = "n", asp = 1,

diff --git a/R/scores.ordiplot.R b/R/scores.ordiplot.R
@@ -1,8 +1,10 @@
 `scores.ordiplot`  <-
     function (x, display = "sites", ...)
 {
-    if (length(x) == 1)
+    if (length(x) == 1) {
+        attr(x[[1]], "score") <- display
         return(x[[1]])
+    }
     items <- names(x)
     items <- items[!is.na(items)]
     display <- match.arg(display, items)