Update ques3R2.R