sample1<-("http://kanggc.iptime.org/book/data/csv_sample1.csv")
sample_dat<-read.csv(sample1,header=T,sep=",")
sample_dat
year<-sample_dat$year
gdp<-sample_dat$GDP
consumption<-sample_dat$consumption
summary(sample_dat)