Nothing
turnout_w8margin <- as.w8margin(
c(voted = .715, `did not vote` = .285, ineligible = NA),
varname = "turnout2013",
na.allow = TRUE,
samplesize = 1500)
impute_w8margin(turnout_w8margin, observed = gles17$turnout2013)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.