item1 <- generate_item()
as.data.frame(item1)
item2 <- generate_item(model = "Rasch", item_id = "i1",
misc = list(type = "MC", op = TRUE, c("i1", "i2")))
as.data.frame(item2)
item3 <- generate_item(model = "GRM")
as.data.frame(item3)
item1 <- generate_item(model = "GRM", item_id = "i1")
as.data.frame(item1)
item1 <- generate_item(model = "PCM", item_id = "i1")
as.data.frame(item1)
item1 <- generate_item(model = "GPCM", item_id = "i1")
as.data.frame(item1)
item1 <- generate_item(model = "GPCM2", item_id = "i1")
as.data.frame(item1)
item1 <- generate_item(model = "M2PL", item_id = "i1")
as.data.frame(item1)
item1 <- generate_item(model = "M3PL", item_id = "i1")
as.data.frame(item1)
ip1 <- generate_ip()
as.data.frame(ip1)
ip2 <- generate_ip(n = 10, model = "GRM",
content = sample(c("G", "A"), 10, TRUE),
item_id = paste0("grm-i-", 1:10))
as.data.frame(ip2)
t1 <- generate_testlet(n = 3, item_id_preamble = "t1")
t2 <- generate_testlet(n = 2, item_id_preamble = "t2")
ip3 <- c(ip1, t1, t2)
as.data.frame(ip3)
ip4 <- c(ip2, ip3)
as.data.frame(ip4)
item1 <- item(a = 1.12, b = -2.1, c = 0.28)
item2 <- item(a = 2, b = 3.2, c = 0.21)
ip1 <- c(item1, item2)
as.data.frame(ip1)
testlet1 <- generate_testlet()
as.data.frame(testlet1)
testlet2 <- generate_testlet(testlet_id = "T1")
as.data.frame(testlet2)
Run the code above in your browser using DataLab