Zelig4: Everyone's Statistical Software

library(Zelig)

data(turnout)

z <- zelig(vote ~ race + educate, model = "logit", data = turnout)

x.single <- setx(z, educate = 5)
x.pooled <- setx(z, educate = 5:7)

as.matrix(x.single)
as.matrix(x.pooled)

z1 <- zelig(vote ~ race + income, model="logit", data=turnout, cite=F)
z2 <- zelig(vote ~ race + sin(income), model="logit", data=turnout, cite=F)
z3 <- zelig(vote ~ race + income:educate, model="logit", data=turnout, cite=F)

t(setx(z1))
t(setx(z2))
t(setx(z3))