Create question4.R