R file for second lab
R script for lab 1