library(openxlsx) excel_sample1<-read.xlsx("http://kanggc.iptime.org/book/data/sample1-n.xlsx") excel_sample1 year<-excel_sample1$year gdp<-excel_sample1$gdp consumption<-excel_sample1$consumption summary(excel_sample1)