# Example on p.244 of Littell et al.
oranges.lm <- lm(sales1 ~ price1*day, data = oranges)
emmeans(oranges.lm, "day")
# Example on p.246 of Littell et al.
emmeans(oranges.lm, "day", at = list(price1 = 0))
# A more sensible model to consider, IMHO (see vignette("interactions"))
org.mlm <- lm(cbind(sales1, sales2) ~ price1 * price2 + day + store,
data = oranges)
Run the code above in your browser using DataLab