Update question1.R