diff --git a/R/ellipse.axes.R b/R/ellipse.axes.R
index 7a6cf2e8..6442f38e 100644
--- 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
index 5df058eb..54e4abe7 100644
--- 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
index 7e9265bf..dc2a2b17 100644
--- a/docs/404.html
+++ b/docs/404.html
@@ -13,8 +13,8 @@
-
-
+
+
diff --git a/docs/articles/HE_manova.html b/docs/articles/HE_manova.html
index ac6cf235..cf0f5090 100644
--- a/docs/articles/HE_manova.html
+++ b/docs/articles/HE_manova.html
@@ -14,8 +14,8 @@
-
-
+
+
@@ -83,7 +83,7 @@
vignettes/HE_manova.Rmd
HE_manova.Rmd
vignettes/HE_mmra.Rmd
HE_mmra.Rmd