# NOT RUN {
T<-1000
series<-FI.sim(T=T, q=2, rho=0.9, d=c(0.1,0.4), B=rbind(c(1,-1),c(0,1)))
FCI_R08(series, m=floor(T^0.75), type="*")
series<-FI.sim(T=T, q=2, rho=0.9, d=c(0.4,0.4))
FCI_R08(series, m=floor(T^0.75), type="*")
# }
Run the code above in your browser using DataLab