# NOT RUN {
## example 1
# import the "-prm.txt" output file from flexMIRT
flex_sam <- system.file("extdata", "flexmirt_sample-prm.txt", package = "irtplay")
# read item parameters and transform them to item meta data
bring.flexmirt(file=flex_sam, "par")$Group1$full_df
## example 2
## import the ".par" output file from PARSCALE
pscale_sam <- system.file("extdata", "parscale_sample.PAR", package = "irtplay")
# read item parameters and transform them to item meta data
bring.parscale(file=pscale_sam, "par")$full_df
# }
Run the code above in your browser using DataLab