Problem 1, Question 1

R Script + CSV Outputs