Skip to content

Commit

Permalink
fix
Browse files Browse the repository at this point in the history
  • Loading branch information
strengejacke committed Dec 1, 2023
1 parent 5893352 commit 242610b
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions tests/testthat/test-pca.R
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@ skip_if_not_installed("nFactors")
skip_if_not_installed("GPArotation")

test_that("principal_components", {
x <- parameters::principal_components(mtcars[, 1:7], rotation = "varimax")
x <- principal_components(mtcars[, 1:7], rotation = "varimax")

expect_equal(
x$RC1,
Expand Down Expand Up @@ -58,7 +58,7 @@ test_that("principal_components", {
})

test_that("principal_components", {
x <- model_parameters(principal_component(mtcars[, 1:7], nfactors = 2))
x <- model_parameters(principal_components(mtcars[, 1:7], nfactors = 2))
expect_equal(
x$RC1,
c(
Expand Down

0 comments on commit 242610b

Please sign in to comment.