R Assignment 4