# 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 a double model (mode = 1)
fit <- sdlrm(difference ~ group | group, data = pss, xi = 1)
# Coef
coef(fit)
coef(fit, parm = "dispersion")
coef(fit, parm = "full")
# vcov
vcov(fit)
vcov(fit, parm = "dispersion")
vcov(fit, parm = "full")
# Log-likelihood value
logLik(fit)
# AIC and BIC
AIC(fit)
AIC(fit, k = log(fit$nobs))
# Model matrices
model.matrix(fit)
model.matrix(fit, "dispersion")
Run the code above in your browser using DataLab