# NOT RUN {
# loading data based on GMAT
data(GMAT)
Data <- GMAT[, 1:20]
group <- GMAT[, "group"]
# starting values for 3PL model
startNLR(Data, group, model = "3PL")
# starting values for 3PL model
# simplified into single table
startNLR(Data, group, model = "3PL", simplify = T)
# starting values for 3PL model
# with score as matching criterion
startNLR(Data, group, model = "3PL", match = "score")
# starting values for model specified for each item
startNLR(Data, group,
model = c(rep("1PL", 5), rep("2PL", 5),
rep("3PL", 5), rep("4PL", 5)))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab