# \donttest{
# estimated volatility
est_val<-c(alpha=0.01,beta=0.8,gamma=0.05,m=2,theta=0.1,w2=2)
r_t<-sp500['/2010']
mv_m<-mv_into_mat(r_t,diff(indpro),K=12,"monthly")
head(GM_long_run_vol(est_val,r_t,mv_m,K=12))
# }
Run the code above in your browser using DataLab