R programming PA2