Update question2.R