* Added the code for solving problem 4 of quiz 4 to quiz4.R