# NOT RUN {
## use the simulated CAT data
# extract the item metadata
x <- simCAT_MX$item.prm
# set a name of "-prm.txt" file
temp_prm <- file.path(tempdir(), "temp-prm.txt")
# write out the "-prm.txt" file
write.flexmirt(x, file=temp_prm, norm.pop=c(0, 1), rePrm=FALSE)
# }
Run the code above in your browser using DataLab