This data was taken from the National Longitudinal Study of Adolescent Health. It is a cross-sectional sample of participants from grades 7--12, described and analyzed by Warne (2014).
data("AddHealth")A data frame with 4344 observations on the following 3 variables.
gradean ordered factor with levels 7 < 8 < 9 < 10 < 11 < 12
depressiona numeric vector
anxietya numeric vector
depression is the response to the question
"In the last month, how often did you feel depressed or blue?"
anxiety is the response to the question
"In the last month, how often did you have trouble relaxing?"
The responses for depression and anxiety were recorded on a
5-point Likert scale, with
categories
0="Never", 1="Rarely", 2="Occasionally", 3="Often", 4="Every day"
# NOT RUN {
data(AddHealth)
# fit mlm
AH.mod <- lm(cbind(depression, anxiety) ~ grade, data=AddHealth)
Anova(AH.mod)
summary(Anova(AH.mod))
heplot(AH.mod, hypotheses="grade.L", fill=c(TRUE, FALSE))
# }