plotShares.r

plotShares <- function(){
 sharesData <- read.csv('shares.csv')
 sharesData$Date <- as.Date(sharesData$Date, '%b %d, %Y')
 plot(sharesData$Date, sharesData$Shares) 
}