R Programming: PA1 initial commit
R Programming: completed PA1