tests/testthat/test-bifactor.from.keys.R

In semFromKeys: Run 'lavaan' Models from Keys Lists

test_that(
  "Test normal behaviour with fit_save = FALSE",
  {
    bif_fit <- bifactor.from.keys(
      keys_g, keys_b, keys, BFIGritHope, fit_save = FALSE
    )
    expect_equal(length(bif_fit), 2)
    expect_equal(length(bif_fit$fit), length(keys_g))
    expect_equal(length(bif_fit$par), length(keys_g))
    expect_equal(sum(sapply(bif_fit$fit, function(x) class(x) != "lavaan")), 0)
  }
)
test_that(
  "Test normal behaviour with fit_save = TRUE",
  {
    bif_fit <- bifactor.from.keys(
      keys_g, keys_b, keys, BFIGritHope, fit_save = TRUE
    )
    expect_equal(length(bif_fit), 3)
    expect_equal(length(bif_fit$fit), length(keys_g))
    expect_equal(length(bif_fit$par), length(keys_g))
    expect_equal(sum(sapply(bif_fit$fit, function(x) class(x) != "lavaan")), 0)
  }
)
test_that(
  "Mistakes with keys specification: Include CFA keys as keys",
  {
    expect_error(
      bifactor.from.keys(
        keys = keys_g, data = BFIGritHope, fit_save = FALSE
      ),
      'argument "keys_g" is missing'
    )
  }
)
test_that(
  "Mistakes with keys specification: Include CFA keys as keys_g",
  {
    expect_error(
      bifactor.from.keys(keys_g, data = BFIGritHope, fit_save = FALSE),
      'argument "keys_b" is missing'
    )
  }
)
test_that(
  "Mistakes with keys specification: Include data as keys_b",
  {
    expect_error(
      bifactor.from.keys(keys_g, BFIGritHope, fit_save = FALSE),
      '"keys" is missing'
    )
  }
)
test_that(
  "Mistakes with keys specification: Swap keys_g and keys_b",
  {
    expect_error(
      bifactor.from.keys(
        keys_b, keys_g, keys, BFIGritHope, fit_save = FALSE
      ),
      'group factor\\(s\\) in `keys_b` are not in `keys`'
    )
  }
)
test_that(
  "Mistakes with keys specification: Swap keys_g and keys",
  {
    expect_error(
      bifactor.from.keys(
        keys, keys_b, keys_g, BFIGritHope, fit_save = FALSE
      ),
      '`keys_g` is not the same length as `keys_b`'
    )
  }
)
test_that(
  "Different order of `keys_b` and `keys_g`elements",
  {
    keys_b_swap <- keys_b[2:1]
    expect_error(
      bifactor.from.keys(
        keys_g, keys_b_swap, keys, BFIGritHope, fit_save = FALSE
      ),
      'Names of `keys_g` do not match.*`keys_b`'
    )
  }
)
test_that(
  "Mistakes in keys lists",
  {
    keys_mistake <- keys
    keys_mistake$grit_c[1] <- "mistake"
    keys_g_mistake <- keys_g
    keys_g_mistake$grit[1] <- "mistake"
    keys_b_mistake <- keys_b
    keys_b_mistake$grit[1] <- "mistake"
    expect_error(
      suppressWarnings(
        bifactor.from.keys(
          keys_g, keys_b, keys_mistake, BFIGritHope, fit_save = FALSE
        )
      ),
      "items are in `keys_s` but they are not in `data`"
    )
    expect_error(
      suppressWarnings(
        bifactor.from.keys(
          keys_g_mistake, keys_b, keys, BFIGritHope, fit_save = FALSE
        )
      ),
      "items are in `keys_s` but they are not in `data`"
    )
    expect_error(
      bifactor.from.keys(
        keys_g, keys_b_mistake, keys, BFIGritHope, fit_save = FALSE
      ),
      "group factor\\(s\\) in `keys_b` are not in `keys`"
    )
  }
)
test_that(
  "Non-list keys list",
  {
    expect_error(
      bifactor.from.keys(
        keys_g, keys_b, keys$grit_c, BFIGritHope, fit_save = FALSE
      ),
      "`keys` is not a list"
    )
    expect_error(
      bifactor.from.keys(
        keys_g$grit, keys_b, keys, BFIGritHope, fit_save = FALSE
      ),
      "`keys_g` is not a list"
    )
    expect_error(
      bifactor.from.keys(
        keys_g, keys_b$grit, keys, BFIGritHope, fit_save = FALSE
      ),
      "`keys_b` is not a list"
    )
  }
)
test_that(
  "No key for group factor",
  {
    keys_missing <- keys[-1]
    expect_error(
      bifactor.from.keys(
        keys_g, keys_b, keys_missing, BFIGritHope, fit_save = FALSE
      ),
      "group factor\\(s\\) in `keys_b` are not in `keys`"
    )
  }
)
test_that(
  "Group factors from a different scale",
  {
    keys_b_wrong <- keys_b
    keys_b_wrong$grit <- keys_b$hope
    expect_error(
      bifactor.from.keys(
        keys_g, keys_b_wrong, keys, BFIGritHope, fit_save = FALSE
      ),
      "items in the.*group factor are not in the.*general factor"
    )
  }
)
test_that(
  "Item in a group factor but not in the general factor",
  {
    keys_g2 <- keys_g
    keys_g2$grit <- keys_g2$grit[-1]
    expect_warning(
      bifactor.from.keys(
        keys_g2, keys_b, keys, BFIGritHope, fit_save = FALSE
      ),
      "item\\(s\\) are in a group factor but not in the general factor"
    )
  }
)