Create Program2.R