data(s109)
id1 <- ideal(s109,
d=1,
meanzero=TRUE,
store.item=TRUE,
maxiter=1000, ## short run for examples
burnin=100,
thin=10)
plot(id1)
Run the code above in your browser using DataLab