library(openxlsx)
excel_sample1<-read.xlsx("http://kanggc.iptime.org/book/data/sample1-n.xlsx")
year<-excel_sample1$year
gdp<-excel_sample1$gdp
consumption<-excel_sample1$consumption
data1<-excel_sample1[1:10,]
data1
data2<-excel_sample1[11:17,]
data2