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
plot(gdp, consumption, main="Scatter plot of GDp and Consunption")