R Programming: PA3 done