# Plot an approximate 95 % confidence region for the TreatCont and TreatFT
# coefficients for the MASS anorexia data
library(MASS)
data(anorexia)
fit <- glm(Postwt ~ Prewt + Treat + offset(Prewt),
family = gaussian, data = anorexia)
plot(ellipse(fit, which = c('TreatCont', 'TreatFT')), type = 'l')
points(fit$coefficients['TreatCont'], fit$coefficients['TreatFT'])
Run the code above in your browser using DataLab