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(2,1))
plot(year, gdp, type="l", main="GDP of Korea(2000-2016)")
plot(year, consumption, type="l", lty=2,main="Consumption of Korea(2000-2016)")