# \donttest{
# conditional density of the innovations: normal
start_val<-c(alpha=0.01,beta=0.80,gamma_1=0.05,m=0,theta_pos=0,w2_pos=1.1,theta_neg=0,w2_neg=1.1)
r_t<-sp500['2005/2010']
mv_m<-mv_into_mat(r_t,diff(indpro),K=12,"monthly")
sum(DAGM_loglik(start_val,r_t,mv_m,K=12,distribution="norm"))
# conditional density of the innovations: Student-t
start_val<-c(0.01,0.80,0.05,0,0,1.1,0,1.1,5)
r_t<-sp500['2005/2010']
mv_m<-mv_into_mat(r_t,diff(indpro),K=12,"monthly")
sum(DAGM_loglik(start_val,r_t,mv_m,K=12,distribution="std"))
# }
Run the code above in your browser using DataLab