# \donttest{
#library(eiExpand)
#data("south_carolina")
#prec_election_demog <- south_carolina[1:50,]
## run rpv analysis
#eiVote <- eiCompare::ei_iter(
# data = prec_election_demog,
# cand_cols = c('pct_mcmaster', 'pct_smith'),
# race_cols = c('pct_white', 'pct_black'),
# totals_col = "total_vap"
#) %>%
# rpv_normalize(
# cand_cols = c('pct_mcmaster', 'pct_smith'),
# race_cols = c('pct_white', 'pct_black')
# )
## use function to create dataframe from rpv results
#plotDF <- rpv_toDF(
# rpv_results = eiVote,
# model = "ei vap", #since we used ei_iter model normalized with vap denominator
# jurisdiction = "Statewide",
# candidate = c("McMaster", "Smith"), #must be in correct order relative to rpv_results
# preferred_candidate = c("White", "Black"), #must be in correct order rpv_results
# party = c("Republican", "Democratic"),
# election_type = "General",
# year = "2020",
# contest = "Governor"
# )
# }
Run the code above in your browser using DataLab