re-build pkgdown

friendly · Dec 5, 2023 · a2a6c8c · a2a6c8c
1 parent 6e752d6
commit a2a6c8c
Show file tree

Hide file tree

Showing 161 changed files with 1,550 additions and 92 deletions.
diff --git a/R/ellipse.axes.R b/R/ellipse.axes.R
@@ -45,7 +45,7 @@
 #' mu <- colMeans(iris[,1:2])
 #' 
 #' radius <- sqrt(qchisq(0.68, 2))
-#' plot(iris[,1:2])
+#' plot(iris[,1:2], asp=1)
 #' car::ellipse(mu, cov, radius = radius)
 #' res <- ellipse.axes(cov, centre=mu, level = 0.68,
 #'             labels = TRUE)
@@ -84,7 +84,7 @@ ellipse.axes <- function(
   # transform to PC axes
   result <- axes %*% sqrt(diag(eig$values)) %*% t(eig$vectors)
   # scale
-  result <- result %*% diag(rep(t, 2))
+  result <- result %*% diag(rep(radius, 2))
   # center 
   result <- sweep(result, 2L, centre, FUN="+")
   colnames(result) <- colnames(cov)

diff --git a/_pkgdown.yml b/_pkgdown.yml
@@ -59,6 +59,7 @@ reference:
     - cross3d
     - etasq
     - Ellipsoid
+    - ellipse.axes
     - ellipse3d.axes
     - gsorth
     - interpPlot

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/articles/HE_manova.html b/docs/articles/HE_manova.html
diff --git a/docs/articles/HE_mmra.html b/docs/articles/HE_mmra.html
diff --git a/docs/articles/index.html b/docs/articles/index.html