Adding solutions for PA1 and PA2 in R; Initializing PA3