csv_sample1<-"http://kanggc.iptime.org/book/data/csv_sample1.csv" 
csv_sample_dat<- as.matrix(read.csv(csv_sample1,header=T),ncol=3)
year<-csv_sample_dat[,1]
gdp<-csv_sample_dat[,2]
consumption<-csv_sample_dat[,3]
gdp
consumption
par(mfrow=c(1,2)) 
hist(gdp)
hist(consumption, breaks=8, col="red")