data(s109)
id1 <- ideal(s109, meanzero=TRUE,
store.item=TRUE) ## too long for examples
id1 <- ideal(s109,
d=1,
meanzero=TRUE,
store.item=TRUE, ## need this to be TRUE for predict
maxiter=1000,
burnin=100,
thin=10)
phat <- predict(id1)
phat ## print method
Run the code above in your browser using DataLab