library(car)
library(dae)
library(dplyr)
library(emmeans)
library(ggplot2)
library(lmerTest)
library(magrittr)
library(predictmeans)
data(DataExam4.4)
# Pg. 58
fm4.6 <-
aov(
formula = height ~ repl + irrig*fert*seedlot +
Error(repl/irrig:fert)
, data = DataExam4.4
)
# Pg. 61
summary(fm4.6)
# Pg. 61
model.tables(x = fm4.6, type = "means")
# Pg. 61
emmeans(object = fm4.6, specs = ~ irrig)
emmip(object = fm4.6, formula = ~ irrig) +
theme_classic()
Run the code above in your browser using DataLab