* Added the code for Problem 5 to the quiz4.R file