tests/testthat/test-ULS.R

In mdsteiner/EFAdiff: Fast and Flexible Implementations of Exploratory Factor Analysis Tools

ULS_test <- .ULS(test_models$baseline$cormat, n_factors = 3, N = 500)
ULS_test_1 <- .ULS(test_models$baseline$cormat, n_factors = 1, N = 500)

test_that("output class and dimensions are correct", {
  expect_is(ULS_test$unrot_loadings, "LOADINGS")
  expect_output(str(ULS_test), "List of 9")
  expect_is(ULS_test_1$unrot_loadings, "LOADINGS")
  expect_output(str(ULS_test_1), "List of 9")

})

test_that("outputs are correct", {
  expect_equal(ULS_test$orig_R, test_models$baseline$cormat)
  expect_equal(sum(ULS_test$orig_eigen), ncol(test_models$baseline$cormat))
  expect_lt(sum(ULS_test$final_eigen), ncol(test_models$baseline$cormat))
  expect_equal(ULS_test$convergence, 0)

  expect_equal(ULS_test_1$orig_R, test_models$baseline$cormat)
  expect_equal(sum(ULS_test_1$orig_eigen), ncol(test_models$baseline$cormat))
  expect_lt(sum(ULS_test_1$final_eigen), ncol(test_models$baseline$cormat))
  expect_equal(ULS_test_1$convergence, 0)
})

test_that("fit indices are returned correctly", {
  expect_output(str(ULS_test$fit_indices), "List of 14")
  expect_output(str(ULS_test_1$fit_indices), "List of 14")

  expect_is(ULS_test$fit_indices$chi, "numeric")
  expect_is(ULS_test$fit_indices$df, "numeric")
  expect_is(ULS_test$fit_indices$p_chi, "numeric")
  expect_is(ULS_test$fit_indices$CAF, "numeric")
  expect_is(ULS_test$fit_indices$CFI, "numeric")
  expect_is(ULS_test$fit_indices$RMSEA, "numeric")
  expect_is(ULS_test$fit_indices$RMSEA_LB, "numeric")
  expect_is(ULS_test$fit_indices$RMSEA_UB, "numeric")
  expect_is(ULS_test$fit_indices$AIC, "numeric")
  expect_is(ULS_test$fit_indices$BIC, "numeric")
  expect_is(ULS_test$fit_indices$Fm, "numeric")
  expect_is(ULS_test$fit_indices$chi_null, "numeric")
  expect_is(ULS_test$fit_indices$df_null, "numeric")
  expect_is(ULS_test$fit_indices$p_null, "numeric")

  expect_is(ULS_test_1$fit_indices$chi, "numeric")
  expect_is(ULS_test_1$fit_indices$df, "numeric")
  expect_is(ULS_test_1$fit_indices$p_chi, "numeric")
  expect_is(ULS_test_1$fit_indices$CAF, "numeric")
  expect_is(ULS_test_1$fit_indices$CFI, "numeric")
  expect_is(ULS_test_1$fit_indices$RMSEA, "numeric")
  expect_is(ULS_test_1$fit_indices$RMSEA_LB, "numeric")
  expect_is(ULS_test_1$fit_indices$RMSEA_UB, "numeric")
  expect_is(ULS_test_1$fit_indices$AIC, "numeric")
  expect_is(ULS_test_1$fit_indices$BIC, "numeric")
  expect_is(ULS_test_1$fit_indices$Fm, "numeric")
  expect_is(ULS_test_1$fit_indices$chi_null, "numeric")
  expect_is(ULS_test_1$fit_indices$df_null, "numeric")
  expect_is(ULS_test_1$fit_indices$p_null, "numeric")
})

rm(ULS_test, ULS_test_1)