Dr. Joe Sutherland jlsutherland

I hereby claim:

I am jlsutherland on github.
I am jlsutherland (https://keybase.io/jlsutherland) on keybase.
I have a public key whose fingerprint is B8C0 A714 05CF C23A 521E 0D2B 4DA4 6A8F 5B13 DB7E

To claim this, I am signing this object:

	library(tidyverse)
	library(survey)
	library(scales)

	anes16 <- readstata13::read.dta13("~/Downloads/anes_timeseries_2016.dta")

	anescdf <- readstata13::read.dta13("~/Downloads/anes_timeseries_cdf.dta") %>%
	filter(VCF0004 %in% c(1984, 2004))

	preference_vars <- c(

	vector.is.empty <- function (x) return(length(x) == 0 )

	smoothFillForward <- function (bank, days) {
	## Assumes there is a csv of raw scores in the working directory for the bank.
	## Assumes that the name of that csv is ${BANK}_scores.csv.
	## Assumes that the csv has a score, a date, and a residual column.

	## Get data from CSV.
	all_scores <- read.csv(sprintf('%s_scores.csv', bank))
	all_scores$date <- as.Date(all_scores$date, format="%Y-%m-%d")