part1.R