# NOT RUN {
data(france)
left.mod <- glm(voteleft ~ male + age + retnat +
poly(lrself, 2, raw=TRUE), data=france, family=binomial)
out <- probci(left.mod, france, changeX="retnat")
out
out2 <- probci(left.mod, france, changeX="lrself",
xvals = list(lrself = c(1,10)))
out2
out3 <- probci(left.mod, france, changeX=c("lrself", "retnat"),
xvals = list(lrself = c(1,10)))
out3
# }
Run the code above in your browser using DataLab