library("EEML")
Actual<- as.ts(rnorm(200,100,50))
Model1<- as.ts(rnorm(200,100,50))
Model2<- as.ts(rnorm(200,100,50))
Model3<- as.ts(rnorm(200,100,50))
Model4<- as.ts(rnorm(200,100,50))
Model5<- as.ts(rnorm(200,100,50))
DF <- cbind(Actual, Model1,Model2,Model3,Model4,Model5)
SelModel<-ModelSel(df=DF, Alpha=0.2, K=1000)
Run the code above in your browser using DataLab