Lesson 6 Exercise Answers

Exercise 1

emm_inoculum <- emmeans(fit_apples, ~ inoculum, type = 'response')
plot(emm_inoculum)
contrast(emm_inoculum, method = 'pairwise', adjust = 'sidak')
cld(emm_inoculum, adjust = 'sidak', Letters = letters)

Exercise 2

emm_genotype <- emmeans(fit_apples, ~ gen, type = 'response')
plot(emm_genotype)
contrast(emm_genotype, method = 'pairwise', adjust = 'sidak')
cld(emm_genotype, adjust = 'sidak', Letters = letters)

Exercise 3

emm_inoc_within_genotype <- emmeans(fit_apples, ~ inoculum | gen, type = 'response')
cld(emm_inoc_within_genotype, adjust = 'sidak', Letters = letters)