fix failing mkl test on cran

gdkrmr · Mar 11, 2022 · 823e833 · 823e833
1 parent ba0f1fe
commit 823e833
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test_quality.R b/tests/testthat/test_quality.R
@@ -24,7 +24,7 @@ test_that("Q_local ndim", {
     irisData <- loadDataSet("Iris")
     irisData <- irisData[!duplicated(irisData@data)]
 
-    parsPCA <- list(center = TRUE, scale. = TRUE, ndim = 4)
+    parsPCA <- list(center = TRUE, scale. = FALSE, ndim = 4)
     resPCA <- do.call(function(...) embed(irisData, "PCA", ...), parsPCA)
 
     tmp <- sapply(1:4, function(x) quality(resPCA, "Q_local", ndim = x))