From c502ef7b621d7b8b552726f9db4820ea5d449fa4 Mon Sep 17 00:00:00 2001 From: philchalmers Date: Fri, 2 Aug 2024 11:23:03 -0400 Subject: [PATCH] add non-nest2 test --- tests/tests/test-10-extras.R | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/tests/tests/test-10-extras.R b/tests/tests/test-10-extras.R index 3267097d0..0a84bc6d5 100644 --- a/tests/tests/test-10-extras.R +++ b/tests/tests/test-10-extras.R @@ -1,6 +1,15 @@ context('extras') test_that('extras', { + suppressMessages(require(nonnest2, quietly=TRUE, warn.conflicts=FALSE)) + mod_2PL <- mirt(expand.table(LSAT7), 1, SE=TRUE, verbose=FALSE) + itemtype <- c('2PL', '2PL', '2PL', '2PL', 'ggum') + mod_2PL_ggum <- mirt(expand.table(LSAT7), model=1, itemtype=itemtype, SE=TRUE, + verbose=FALSE) + out <- vuongtest(mod_2PL, mod_2PL_ggum) + expect_equal(out$p_omega, 2.206736e-05, tol=.0001) + expect_equal(as.numeric(out$p_LRT), c(0.6205581, 0.3794419), tol=.0001) + require(boot, quietly=TRUE, warn.conflicts=FALSE) data <- expand.table(LSAT7) data <- rbind(data, data)