nItems <- 10
myItemsDeltaDot <- data.frame(
id= seq(nItems),
itemid= NA,
delta = runif (nItems, -4, 1) # nItems items in range -4,1
)
myItemsList <- conquestr::makeItemList(deltaDot = myItemsDeltaDot)
Run the code above in your browser using DataLab