# Download electoral disproportionality data stored on GitHub
# Note: Using shortened URL created by bitly
DisData <- source_data("http://bit.ly/156oQ7a")
# Check to see if SHA-1 hash matches downloaded file
DisDataHash <- source_data("http://bit.ly/Ss6zDO",
sha1 = "dc8110d6dff32f682bd2f2fdbacb89e37b94f95d")Run the code above in your browser using DataLab