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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.