R scripts and output for assignment