# NOT RUN {
## Verbal aggression data
data("VerbalAggression", package = "psychotools")
## Fit a partial credit model to VerbalAggression data
pcmod <- pcmodel(VerbalAggression$resp)
## Create a person-item plot visualization of the fitted PCM
plot(pcmod, type = "piplot")
## Just visualize the first six items
plot(pcmod, type = "piplot", ref = 1:6)
# }
Run the code above in your browser using DataLab