Nothing
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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.