myDeltaDots <- data.frame(
id = c(1:10),
itemid = paste0("item", 1:10),
delta = rnorm(10)
)
MyTaus <- data.frame(
id = c(2L, 10L),
itemId = NA,
step = c(1L, 1L),
tau = rnorm(2)
)
myItemList <- makeItemList(deltaDot = myDeltaDots, tau = MyTaus)
myInfoPlot <- informationWrightMap(myItemList, rnorm(1000, 0, 1), minTheta=-5, maxTheta=5)
Run the code above in your browser using DataLab