# NOT RUN {
data("e1")
e1 <- diff(log(e1))
# Generate VAR model
data <- gen_var(e1, p = 2, deterministic = "const")
y <- data$Y
x <- data$Z
# LS estimate
ols <- tcrossprod(y, x) %*% solve(tcrossprod(x))
# Residuals
u <- y - ols %*% x # Residuals
# Covariance matrix
sigma <- tcrossprod(u) / ncol(u)
# Log-likelihood
loglik_normal(u = u, sigma = sigma)
# }
Run the code above in your browser using DataLab