Update Quiz4.R