Update quiz4.R