R programming A3 Q1 Done