# NOT RUN {
if (require("multcomp", quietly = TRUE)) {
# multiple linear model, swiss data
lmod <- lm(Fertility ~ ., data = swiss)
mod <- glht(
model = lmod,
linfct = c(
"Agriculture = 0",
"Examination = 0",
"Education = 0",
"Catholic = 0",
"Infant.Mortality = 0"
)
)
model_parameters(mod)
}
if (require("PMCMRplus", quietly = TRUE)) {
model <- kwAllPairsConoverTest(count ~ spray, data = InsectSprays)
model_parameters(model)
}
# }
Run the code above in your browser using DataLab