Added quiz1.R