1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
# This file was generated by Rcpp::compileAttributes
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

beta_ridge_C <- function(X, Y, lambda_beta) {
    .Call('graphicalVAR_beta_ridge_C', PACKAGE = 'graphicalVAR', X, Y, lambda_beta)
}

Beta_C <- function(kappa, beta, X, Y, lambda_beta, convergence, maxit) {
    .Call('graphicalVAR_Beta_C', PACKAGE = 'graphicalVAR', kappa, beta, X, Y, lambda_beta, convergence, maxit)
}

VAR_logLik_C <- function(X, Y, kappa, beta) {
    .Call('graphicalVAR_VAR_logLik_C', PACKAGE = 'graphicalVAR', X, Y, kappa, beta)
}

LogLik_and_BIC <- function(X, Y, estimates) {
    .Call('graphicalVAR_LogLik_and_BIC', PACKAGE = 'graphicalVAR', X, Y, estimates)
}