# NOT RUN {
o <- options(digits = 4)
## load verbal aggression data
data("VerbalAggression", package = "psychotools")
## fit a Rasch model to dichotomized verbal aggression data and
ram <- raschmodel(VerbalAggression$resp2)
## extract person parameters
rap <- personpar(ram)
rap
## extract variance-covariance matrix and standard errors
vc <- vcov(rap)
sqrt(diag(vc))
## Wald confidence intervals
confint(rap)
## person parameters for RSM/PCM fitted to original polytomous data
rsm <- rsmodel(VerbalAggression$resp)
pcm <- pcmodel(VerbalAggression$resp)
cbind(personpar(rsm, vcov = FALSE), personpar(pcm, vcov = FALSE))
options(digits = o$digits)
# }
Run the code above in your browser using DataLab