# Simulating 5 Items within a loop
ParList <- lapply(1:5,function(x)
{
Item1 <- c(c(-2,-1,1,2),c(-1.2,0.3,0.2,0.7))
names(Item1) <- c(paste("zeta",1:4,sep=""),paste("lamb",1:4,sep=""))
Item1
})
names(ParList) <- paste("item",1:5,sep="")
# simulate person parameters
perp1 <- rnorm(1500,0,1)
# simulate data.frame
sim.nrm.1 <- NRM.sim(ParList,perp1)
Run the code above in your browser using DataLab