Assignment2.R