Correct order of X and Y in chart.nls()

SciViews · Apr 23, 2024 · a01f0db · a01f0db
1 parent 03c7887
commit a01f0db
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/chart.nls.R b/R/chart.nls.R
@@ -109,8 +109,8 @@ type = c("model", "resfitted", "qqplot", "scalelocation", "reshist",
       (function(nls) {
         adata <- augment(nls)
         ndata <- names(adata)
-        X <- as.name(ndata[1])
-        Y <- as.name(ndata[2])
+        X <- as.name(ndata[2])
+        Y <- as.name(ndata[1])
         chart(data = adata, aes(x = {{ X }}, y = {{ Y }})) + # Was: aes_string(x = X, y = Y)) +
           geom_point() +
           stat_function(fun = as.function(nls), col = "skyblue3", size = 1)