# NOT RUN {
data(UPBdata)
impData <- neImpute(UPB ~ att * negaff + gender + educ + age,
family = binomial, data = UPBdata)
neMod <- neModel(UPB ~ att0 * att1 + gender + educ + age,
family = binomial, expData = impData, se = "robust")
lht <- neLht(neMod, linfct = c("att0 = 0", "att0 + att0:att1 = 0",
"att1 = 0", "att1 + att0:att1 = 0",
"att0 + att1 + att0:att1 = 0"))
## all pairs return identical output
plot(confint(lht), transf = exp)
plot(lht, transf = exp)
plot(neEffdecomp(neMod), transf = exp)
plot(neMod, transf = exp)
# }
Run the code above in your browser using DataLab