Added working copies of R scripts for assignment 3