# NOT RUN {
fit <- glm(chd ~ hieng*job + offset(log(y)), data=diet, family=poisson)
lincom(fit, c("hienghigh+hienghigh:jobconductor",
"hienghigh+hienghigh:jobbank"),
eform=TRUE)
# }
Run the code above in your browser using DataLab