library(car)
library(dae)
library(dplyr)
library(emmeans)
library(ggplot2)
library(lmerTest)
library(magrittr)
library(predictmeans)
data(DataExam2.2)
# Pg. 24
fmtab2.5 <-
lm(
formula = dbh ~ block + seedlot
, data = DataExam2.2
)
# Pg. 26
anova(fmtab2.5)
# Pg. 26
emmeans(object = fmtab2.5, specs = ~ seedlot)
emmip(object = fmtab2.5, formula = ~ seedlot) +
theme_classic()
Run the code above in your browser using DataLab