tests/testthat/test_item.logit.R

test_that("item.logit", {
  z <- rnorm(100, 0, 2)
  d <- item.logit(z = z, slope = 4, thr = 0)
  expect_true(all(d$x %in% 0:1))
  expect_true(mean(d$x) > 0.25)
  expect_true(mean(d$x) < 0.75)
})
beckerbenj/eatAnalysis documentation built on July 7, 2023, 5:51 p.m.