Add R script to Assignment 2