# Simulation of data from a Rasch model (alpha_1 = alpha_2 = 0)
N <- 500 # number of persons
I <- 11 # number of items
b <- seq( -2 , 2 , length=I )
dat <- sim.raschtype( rnorm( N ) , b )
colnames(dat) <- paste( "I" , 1:I , sep="")
Run the code above in your browser using DataLab