House.null <- do(1000) * rflip(279, 0.5)
head(House.null, 3)
favstats(~ prop, data = House.null)
dotPlot(~ prop, data = House.null, groups = (prop >= 189/279 | prop <=90/279), width = 0.007)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.