Exploratory Data - week1 - R functions and plots