Initial Answers

R script and two tidy data sets to answer the questions