R/RcppExports.R

In HDMAADMM: ADMM for High-Dimensional Mediation Models

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

elasticNetFit <- function(X, y, coefInit, lambda1, lambda2, maxIter = 3000L, tol = 1e-3, verbose = FALSE, verboseNumIter = 10L, verboseNumCoef = 1L) {
    .Call('_HDMAADMM_elasticNetFit', PACKAGE = 'HDMAADMM', X, y, coefInit, lambda1, lambda2, maxIter, tol, verbose, verboseNumIter, verboseNumCoef)
}

fMatProd <- function(X, Y, is_X_symmetric = FALSE) {
    .Call('_HDMAADMM_fMatProd', PACKAGE = 'HDMAADMM', X, Y, is_X_symmetric)
}

fMatTransProd <- function(X, Y, is_X_symmetric = FALSE) {
    .Call('_HDMAADMM_fMatTransProd', PACKAGE = 'HDMAADMM', X, Y, is_X_symmetric)
}

fMatInv <- function(X, is_sym_pd = FALSE) {
    .Call('_HDMAADMM_fMatInv', PACKAGE = 'HDMAADMM', X, is_sym_pd)
}

fMatChol <- function(X) {
    .Call('_HDMAADMM_fMatChol', PACKAGE = 'HDMAADMM', X)
}

singleModalityAdmmFit <- function(X, Y, M1, alphaInit, betaInit, gammaInit, rho, lambda1a, lambda1b, lambda1g, lambda2a, lambda2b, penaltyType, penaltyParameters, XtX, XtXInv, XtXPlusRhoInv, XtM1, M1tM1PlusRhoInv, M1tY, XtY, maxIter, tol, verbose, verboseNumIter, verboseNumAlpha, verboseNumBeta, verboseNumGamma) {
    .Call('_HDMAADMM_singleModalityAdmmFit', PACKAGE = 'HDMAADMM', X, Y, M1, alphaInit, betaInit, gammaInit, rho, lambda1a, lambda1b, lambda1g, lambda2a, lambda2b, penaltyType, penaltyParameters, XtX, XtXInv, XtXPlusRhoInv, XtM1, M1tM1PlusRhoInv, M1tY, XtY, maxIter, tol, verbose, verboseNumIter, verboseNumAlpha, verboseNumBeta, verboseNumGamma)
}