Create quiz1_rprog003.R