library(Zelig)
data(turnout)
z <- zelig(vote ~ age, model = "logit", data = mi(turnout[1:10, ], turnout[100:110, ]))
x <- setx(z, age = 90)
s.out1 <- sim(z, x=x, num=20)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.