r-programming Assignment2