r - 获得主项和交互项的组合标准误

Question

我怎样才能得到主要和交互项的组合标准误差？在模型 1 中，我希望获得 progAcademic 和 progAcademic:math 的综合估计值。

我在下面提供了示例数据：

df <- read.csv("http://www.ats.ucla.edu/stat/data/poisson_sim.csv")
df <- within(df, {
prog <- factor(prog, levels=1:3, labels=c("General", "Academic", "Vocational"))
id <- factor(id)
})
mdel1 <- glm(num_awards ~ prog + math + prog*math, family="poisson", data=df)