Part 7 R scripts