R Programming Assignment 3