Create R Script for third practical.R

R script I wrote while a student at Oxford.