require(lsmeans)
nutr.aov <- aov(gain ~ (group + age + race)^2, data = nutrition)
# Summarize predictions for age group 3
nutr.lsm <- lsmeans(nutr.aov, list(pairwise ~ group|race, pairwise ~ race|group),
at = list(age="3"))
with(nutr.lsm[[1]], interaction.plot(group, race, lsmean, type="b"))
# Hispanics seem exceptional; but, this doesn't test out due to very sparse data
print(nutr.lsm, omit=3)
Run the code above in your browser using DataLab