tests/testthat/test-cat.feedback.graph.get_rank.R

context("cat.feedback.graph.get_rank")

test_that("examples", {
  expect_equal(cat.feedback.graph.get_rank(all_scores = c(1:5, 5)), 1)
  expect_equal(cat.feedback.graph.get_rank(all_scores = c(1:5, 6)), 1)
  expect_equal(cat.feedback.graph.get_rank(all_scores = c(1, 2, 2, 3, 4, 2)), 3)
  expect_equal(cat.feedback.graph.get_rank(all_scores = c(1:5, 0)), 6)
})
pmcharrison/psychTestCAT documentation built on Sept. 16, 2020, 5:48 p.m.