myDetaDot <- data.frame(
id = 1:10,
itemid = paste0("item_", letters[1:10]),
delta = runif(n = 10, min = -3, max = 2)
)
myTau<- data.frame(
id = c(rep(1:2, each = 1), rep (3, 2)),
itemid = paste0("item_", c(rep(letters[1:2], each = 1), rep(letters[3], 2))),
step = c(1, 1, 1, 2),
tau = c(-1.2, -0.3, -0.2, -0.1)
)
myItemParams<- makeItemList(myDetaDot, myTau)
myAbil <- rnorm(1000, 0, 1)
myInfoPlot <- informationWrightMap2(myItems= myItemParams, myAbilities = myAbil)
Run the code above in your browser using DataLab