## Data set: pss (for description run ?pss)
barplot(table(pss$difference), xlab = "PSS index difference", ylab = "Frequency")
boxplot(pss$difference ~ pss$group, xlab = "Group", ylab = "PSS index difference")
## Fit with a model only for the mean (mode = 1)
fit <- sdlrm(difference ~ group, data = pss, xi = 1)
## Randomized quantile residuals
rq <- residuals(fit)
## Pearson residuals
rp <- residuals(fit, type = "pearson")
## Raw response residuals
rr <- residuals(fit, type = "response")
cbind(quantile = rq, pearson = rp, raw = rr)
Run the code above in your browser using DataLab