tests/testthat/test-convert_tier.R

In ConverTier2: Conversion of Tiered Assessment Responses to Polytomous Scores

test_that("convert_tier menghasilkan skor yang benar", {

  data <- data.frame(
    Jwb_1 = c(1, 1, 0),
    Als_1 = c(1, 0, 0),
    Jwb_2 = c(0, 1, 1),
    Als_2 = c(1, 0, 1)
  )

  rules <- c(
    "11" = 4,
    "10" = 3,
    "01" = 2,
    "00" = 1
  )

  hasil <- convert_tier(
    data,
    rules,
    n_tier = 2
  )

  expect_equal(
    hasil$Score_Item_1,
    c(4, 3, 1)
  )

  expect_equal(
    hasil$Score_Item_2,
    c(2, 3, 4)
  )

})