o <- options(digits = 4)
## Verbal aggression data
data("VerbalAggression", package = "psychotools")
## Rasch model for the other-to-blame situations
m <- raschmodel(VerbalAggression$resp2[, 1:12])
## IGNORE_RDIFF_BEGIN
summary(m)
## IGNORE_RDIFF_END
## visualizations
plot(m, type = "profile")
plot(m, type = "regions")
plot(m, type = "curves")
plot(m, type = "information")
plot(m, type = "piplot")
options(digits = o$digits)
Run the code above in your browser using DataLab