Final Work

Working.R includes code for all plots