The r script and codebook for Data Science, Exploratory Data Course, Week 3