RScript for PA2