# NOT RUN {
#The following example is derived from the "bn1_data" dataset, included
#in the MOTE library.
#A health psychologist recorded the number of close inter-personal
#attachments of 45-year-olds who were in excellent, fair, or poor
#health. People in the Excellent Health group had 4, 3, 2, and 3
#close attachments; people in the Fair Health group had 3, 5,
#and 8 close attachments; and people in the Poor Health group
#had 3, 1, 0, and 2 close attachments.
anova_model = lm(formula = friends ~ group, data = bn1_data)
summary.aov(anova_model)
epsilon.full.SS(dfm = 2, dfe = 8, msm = 12.621,
mse = 2.458, sst = (25.24+19.67), a = .05)
# }
Run the code above in your browser using DataLab