tests/testthat/test-RSA.R

In calmr: Canonical Associative Learning Models and their Representations

df <- get_design("blocking")[1, ]
parse_design(df)
models <- c("HD2022", "RW1972", "PKH1982")
comp <- compare_models(df, models)

comparisons <- list(
  "HD2022" = c("vs"),
  "RW1972" = c("vs"),
  "PKH1982" = c("eivs")
)

test_that("rsa fails if comparisons is unnamed", {
  expect_error(rsa(comp, unname(comparisons)))
})

test_that("rsa fails with inconsistent model outputs", {
  expect_error(rsa(comp, list("HD2022" = c("heidi_acts", "vs"))))
})

test_that("rsa can be ran with test = TRUE", {
  expect_no_error(rsa(comp, comparisons, test = TRUE))
})

res <- rsa(comp, comparisons = comparisons)

test_that("rsa method works with many models", {
  expect_true(is.array(res@corr_mat))
})

test_that("rsa method works with one model", {
  comparisons <- list(
    "RW1972" = model_outputs("RW1972")
  )
  res <- rsa(comp, comparisons = comparisons)
  res
  expect_true(is.array(res@corr_mat))
})

test_that("rsa method stops with models outside x", {
  expect_error(rsa(comp, comparisons = list("HDI2020" = c("os"))))
})

test_that("rsa method stops with bad model outputs", {
  expect_error(rsa(comp, comparisons = list("HD2022" = c("os"))))
})

test_res <- test(res, n_samples = 20)
test_that("test method for CalmrRSA works", {
  expect_named(test_res@test_data)
})

test_that("plotting RSA works", {
  plt <- plot(res)
  expect_named(plt)
})

test_that("plotting RSA with a test works", {
  plt <- plot(test_res)
  expect_named(plt)
})

test_that("show method works without test results", {
  expect_no_error(capture_message(show(res)))
})

test_that("show method works with test results", {
  expect_no_error(capture_message(show(test_res)))
})