Minor updates

ChristianGoueguel · Apr 25, 2024 · 46d978d · 46d978d
1 parent 1c507c1
commit 46d978d
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 1 deletion.
diff --git a/R/ellipseParam.R b/R/ellipseParam.R
@@ -42,7 +42,7 @@ ellipseParam <- function(data, k = 2, pcx = 1, pcy = 2) {
   if (pcx == 0 || pcy == 0) {
     stop("pcx and pcy must be non-zero.")
   }
-  if (!is.numeric(k) || k < 2 || k != floor(k)) {
+  if (k < 2) {
     stop("k must be at least equal to 2.")
   }
   if (k > ncol(data)) {

diff --git a/tests/testthat/testthat-problems.rds b/tests/testthat/testthat-problems.rds