Update question4.R