#set item parameters
item_p <- c(-1.5,-0.5,0.5,1)
#set distribution parameter for items
dis_p <- 5
#generate person parameters by a standard normal distribution
pp <- rnorm(50, 0,1)
#simulate data set
#this is only an illustrating example for simulating data!
#In practice, a sample size of n=50 will be too small for most application demands
simdatC <- simCRSM(item_p, dis_p, pp)
Run the code above in your browser using DataLab