library(openxlsx)
library(fBasics)

df<-read.xlsx("http://kanggc.iptime.org/book/data/describe-e.xlsx")

cpi<-df$cpi
rate<-df$rate
gdp<-df$GDP
deflator<-df$Deflator

df_new<-cbind(cpi, rate, gdp, deflator)
df_new
summary(df_new)

(var<-var(df_new))

(sd1<-sd(cpi))
(sd2<-sd(rate))
(sd3<-sd(gdp))
(sd4<-sd(deflator))

basicStats(df_new)