tests/testthat/test-change_names.R

test_that("change_names actual changes names", {
  data <- data.frame(matrix(1:20, nrow = 4, ncol = 5))
  new_data <- change_names(data)
  expect_true(all(colnames(data) == new_data$item_names$old_names))
})

Try the shortIRT package in your browser

Any scripts or data that you put into this service are public.

shortIRT documentation built on Sept. 9, 2025, 5:33 p.m.