Create StatsOneLab2.R