# NOT RUN {
require(lsmeans)
# Example on p.244 of Littell et al.
oranges.lm <- lm(sales1 ~ price1*day, data = oranges)
lsmeans(oranges.lm, "day")
# Example on p.246
lsmeans(oranges.lm, "day", at = list(price1 = 0))
# }
Run the code above in your browser using DataLab