tests/testthat/test-FACTOR_SCORES.R

In EFAtools: Fast and Flexible Implementations of Exploratory Factor Analysis Tools

EFA_raw <- suppressMessages(EFA(DOSPERT_raw, n_factors = 10, type = "EFAtools",
                                method = "PAF", rotation = "oblimin"))
fac_scores_raw <- FACTOR_SCORES(DOSPERT_raw, f = EFA_raw, method = "Bartlett",
                                impute = "none")

EFA_cor <- EFA(test_models$baseline$cormat, n_factors = 3, N = 500,
               type = "EFAtools", method = "PAF", rotation = "oblimin")
fac_scores_cor <- suppressMessages(FACTOR_SCORES(test_models$baseline$cormat,
                                                 f = EFA_cor))

EFA_unrot <- EFA(test_models$baseline$cormat, n_factors = 3, N = 500,
                 type = "EFAtools", method = "PAF", rotation = "none")
fac_scores_unrot <- suppressMessages(FACTOR_SCORES(test_models$baseline$cormat,
                                                   f = EFA_unrot))

fac_scores_man <- suppressMessages(FACTOR_SCORES(test_models$baseline$cormat,
                                                 f = unclass(EFA_unrot$unrot_loadings)))


test_that("output is correct", {
  expect_is(fac_scores_raw, "FACTOR_SCORES")
  expect_is(fac_scores_cor, "FACTOR_SCORES")
  expect_is(fac_scores_unrot, "FACTOR_SCORES")
  expect_is(fac_scores_man, "FACTOR_SCORES")

  expect_named(fac_scores_raw, c("scores", "weights", "r.scores", "missing",
                                 "R2", "settings"))
  expect_named(fac_scores_cor, c("scores", "weights", "r.scores",
                                 "R2", "settings"))
  expect_named(fac_scores_unrot, c("scores", "weights", "r.scores", "R2",
                                   "settings"))
  expect_named(fac_scores_man, c("scores", "weights", "r.scores",
                                 "R2", "settings"))
})

test_that("settings are returned correctly", {
  expect_named(fac_scores_raw$settings, c("method", "impute"))
  expect_named(fac_scores_cor$settings, c("method", "impute"))
  expect_named(fac_scores_unrot$settings, c("method", "impute"))
  expect_named(fac_scores_man$settings, c("method", "impute"))

  expect_equal(fac_scores_raw$settings$method, "Bartlett")
  expect_equal(fac_scores_cor$settings$method, "Thurstone")
  expect_equal(fac_scores_unrot$settings$method, "Thurstone")
  expect_equal(fac_scores_man$settings$method, "Thurstone")

  expect_equal(fac_scores_raw$settings$impute, "none")
  expect_equal(fac_scores_cor$settings$impute, "none")
  expect_equal(fac_scores_unrot$settings$impute, "none")
  expect_equal(fac_scores_man$settings$impute, "none")
})


test_that("warnings and errors are thrown correctly", {
  expect_error(FACTOR_SCORES(1:5), " 'x' is neither a matrix nor a dataframe. Either provide a correlation matrix or a dataframe or matrix with raw data.\n")
  expect_error(FACTOR_SCORES(DOSPERT_raw, f = 1:5), " 'f' is neither an object of class EFA nor a matrix, nor of class LOADINGS.\n")
  expect_message(FACTOR_SCORES(test_models$baseline$cormat, f = EFA_cor), " 'x' is a correlation matrix, factor scores cannot be computed. Enter raw data to get factor scores.\n")
  expect_message(FACTOR_SCORES(test_models$baseline$cormat,
                               f = unclass(EFA_unrot$unrot_loadings)), " Phi argument was left NULL and factor loadings were entered directly in f. Assuming uncorrelated factors.\n")

})


rm(EFA_raw, fac_scores_raw, EFA_cor, fac_scores_cor, EFA_unrot, fac_scores_unrot,
   fac_scores_man)