Create R Script for second practical.R

R Script I wrote while a student at Oxford