Calculate log marginal data density

Calculate log marginal data density

marginal_data_density(model)

Arguments

model	estimated conjugate N-IW model

Value

log of marginal data density

Details

Calculate log marginal data density. Formula (22) from Carriero "Bayesian VARs: Specification Choices and Forecast Accuracy" section 4.1.

Examples

data(Yraw)
priors <- Carriero_priors(Yraw, p = 4)
model <- bvar_conjugate0(priors = priors, fast_forecast = TRUE)
marginal_data_density(model)
#> [1] -419.0641