Create Quiz4.R

code so far. just need to work on #4