# NOT RUN {
# subset
x <- irt_model("3pl")$gendata(10, 5)
irt_select(x, people.index=c(1,3,5))
irt_select(x, items.index=c(1,3,5))
# sample wihtout replacement
irt_sample(x, n.people=3)
irt_sample(x, n.items=3)
# sample with replacement
irt_sample(x, n.people=30)
irt_sample(x, n.items=30)
# }
Run the code above in your browser using DataLab