# \donttest{
start_val<-c(alpha=0.10,beta=0.8,gamma=0.05,delta=0.01)
real<-(rv5['2009/2010'])^0.5 # realized volatility
r_t<-sp500['2009/2010']
z<-vix['2009/2010']
sum(MEM_X_loglik(start_val,real,r_t,z))
# }
Run the code above in your browser using DataLab