R/06_validation.R

In williamrohdemadsen/dev-public-opinion: Estimates public opinion in developing countries using social media data

# Validation

#' Find actual vote shares in test data
find_actual_vote_shares_national <- function(prediction_master){

  prediction_master %>%
    filter(region_2 == "National") %>%
    distinct(country, leader, votes_share) %>%
    arrange(country)

}