Create part2.R