Update quiz_4.R