# \donttest{
est_val<-c(alpha=0.10,beta=0.8,gamma=0.1,m=0,theta=-0.16,w2=5)
r_t<-sp500['/2010']
real<-rv5['/2010']^0.5 # realized volatility
mv_m<-mv_into_mat(real,diff(indpro),K=12,"monthly")
est_vol<-MEM_MIDAS_pred(est_val,real,r_t,mv_m,K=12)
head(est_vol)
# }
Run the code above in your browser using DataLab