I want to get the confidence interval of diet4(=diet D) so I made a code below.
data(coagulation,package="faraway")
options(contrasts=c("contr.sum","contr.poly"))
fit.coag <- aov(coag ~ diet,data= coagulation)
summary(fit.coag)
confint(fit.coag)
The results show only up to diet3(=diet C).
2.5 % 97.5 %
(Intercept) 62.9613731 65.0386269
diet1 -5.0309151 -0.9690849
diet2 0.2366719 3.7633281
diet3 2.2366719 5.7633281
How can I calculate diet4's interval?