sort sir history

2025-07-11 11:41:54 +02:00 · 2023-01-23 15:01:21 +01:00
parent af139a3c82
commit 19fd0ef121
57 changed files with 2864 additions and 2739 deletions
--- a/R/ggplot_pca.R
+++ b/R/ggplot_pca.R
@ -414,13 +414,14 @@ pca_calculations <- function(pca_model,
      sigma <- var(cbind(x$xvar, x$yvar))
      mu <- c(mean(x$xvar), mean(x$yvar))
      ed <- sqrt(qchisq(ellipse_prob, df = 2))
-      data.frame(sweep(circle %*% chol(sigma) * ed,
-        MARGIN = 2,
-        STATS = mu,
-        FUN = "+"
-      ),
-      groups = x$groups[1],
-      stringsAsFactors = FALSE
+      data.frame(
+        sweep(circle %*% chol(sigma) * ed,
+          MARGIN = 2,
+          STATS = mu,
+          FUN = "+"
+        ),
+        groups = x$groups[1],
+        stringsAsFactors = FALSE
      )
    })
    ell <- do.call(rbind, df.groups)