library(Zelig)
library(Formula)
data(turnout)
fff <- Formula(vote | income ~ educate | race + 0)
pf <- parseFormula(fff, turnout[1, ])
formula(pf)
pf$model.matrix
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.