流动性因子:
流动性因子构建过程为:首先根据t年6月底上市公司的流通市值进行排序,分为大公司(B)和小公司(S)两组,然后再根据t-1年年底上市公司的流动性比率进行排序,非流动性(Amihud指标,前面有计算方法)最高的前30%记为I组,流动性比率中间40%记为M组,非流动性最低的前30%记为L组,每一年分一次组。最后计算出非流动性因子IML。

setwd("e:/R/tail risk/day/sp")
setwd("e:/R/tail risk/month")
r1<-read_excel("r1.xlsx",sheet = 1);r2<-read_excel("r2.xlsx",sheet = 1)
r3<-read_excel("r3.xlsx",sheet = 1);r4<-read_excel("r4.xlsx",sheet = 1)
rr1<-read_excel("rr1.xlsx",sheet = 1);rr2<-read_excel("rr2.xlsx",sheet = 1);rr3<-read_excel("rr3.xlsx",sheet = 1)
rr4<-read_excel("rr4.xlsx",sheet = 1);rr5<-read_excel("rr5.xlsx",sheet = 1);rr6<-read_excel("rr6.xlsx",sheet = 1)
rr7<-read_excel("rr7.xlsx",sheet = 1);rr8<-read_excel("rr8.xlsx",sheet = 1);rr9<-read_excel("rr9.xlsx",sheet = 1)
r1<-slice(r1,-(1L:2L));r2<-slice(r2,-(1L:2L));r3<-slice(r3,-(1L:2L));r4<-slice(r4,-(1L:2L))
rr1<-slice(rr1,-(1L:2L));rr2<-slice(rr2,-(1L:2L));rr3<-slice(rr3,-(1L:2L));rr4<-slice(rr4,-(1L:2L));rr5<-slice(rr5,-(1L:2L))
rr6<-slice(rr6,-(1L:2L));rr7<-slice(rr7,-(1L:2L));rr8<-slice(rr8,-(1L:2L));rr9<-slice(rr9,-(1L:2L))
r5<-bind_rows(rr9,r1,r2,r3,r4,rr1,rr2