new version

removed
data2 <<- load.csv('demandchange','data')
data2$Date <- as.Date(data2$Date, format='%m/%d/%Y')