R Programming Week2 Assignment