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))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.