if (FALSE) {
# turn input data to a list
inputdata = list(as.matrix(example_data_2PL))
# Call fedirt() function, and use 2PL model with school effect as a fixed effect
fedresult = fedirt(inputdata, model_name = "2PL",school_effect = TRUE)
# turn input data to a list
inputdata = list(as.matrix(example_data_2PL_1), as.matrix(example_data_2PL_2))
# Call fedirt() function, and use graded model
fedresult = fedirt(inputdata, model_name = "graded")
}
Run the code above in your browser using DataLab