R/RcppExports.R

In ADMMnet: Regularized Model with Selecting the Number of Non-Zeros

# This file was generated by Rcpp::compileAttributes
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

scaleC <- function(X) {
    .Call('ADMMnet_scaleC', PACKAGE = 'ADMMnet', X)
}

OmegaC <- function(Omega, sgn) {
    .Call('ADMMnet_OmegaC', PACKAGE = 'ADMMnet', Omega, sgn)
}

OmegaSC <- function(OmegaS, sgn) {
    .Call('ADMMnet_OmegaSC', PACKAGE = 'ADMMnet', OmegaS, sgn)
}

maxLambdaLmC <- function(X, y, alpha, wbeta, N0) {
    .Call('ADMMnet_maxLambdaLmC', PACKAGE = 'ADMMnet', X, y, alpha, wbeta, N0)
}

cvTrimLmC <- function(beta, nn, nn2, loco, XF, yF, NF) {
    .Call('ADMMnet_cvTrimLmC', PACKAGE = 'ADMMnet', beta, nn, nn2, loco, XF, yF, NF)
}

EnetLmC <- function(X, y, alpha, lambda, nlambda, ilambda, wbeta, isd, p, N0, thresh, maxit) {
    .Call('ADMMnet_EnetLmC', PACKAGE = 'ADMMnet', X, y, alpha, lambda, nlambda, ilambda, wbeta, isd, p, N0, thresh, maxit)
}

cvEnetLmC <- function(X, y, alpha, lambda, nlambda, wbeta, N, p, thresh, maxit, XF, yF, NF) {
    .Call('ADMMnet_cvEnetLmC', PACKAGE = 'ADMMnet', X, y, alpha, lambda, nlambda, wbeta, N, p, thresh, maxit, XF, yF, NF)
}

NetLmC <- function(X, y, alpha, lambda, nlambda, ilambda, wbeta, Omega, loc, nadj, isd, p, N0, thresh, maxit) {
    .Call('ADMMnet_NetLmC', PACKAGE = 'ADMMnet', X, y, alpha, lambda, nlambda, ilambda, wbeta, Omega, loc, nadj, isd, p, N0, thresh, maxit)
}

cvNetLmC <- function(X, y, alpha, lambda, nlambda, wbeta, Omega, loc, nadj, N, p, thresh, maxit, XF, yF, NF) {
    .Call('ADMMnet_cvNetLmC', PACKAGE = 'ADMMnet', X, y, alpha, lambda, nlambda, wbeta, Omega, loc, nadj, N, p, thresh, maxit, XF, yF, NF)
}

maxLambdaCoxC <- function(X, tevent, N, nevent, nevent1, loc1, n, alpha, wbeta, N0) {
    .Call('ADMMnet_maxLambdaCoxC', PACKAGE = 'ADMMnet', X, tevent, N, nevent, nevent1, loc1, n, alpha, wbeta, N0)
}

pletaCm <- function(xb, exb, nevent, nevent1, loc1, n, ifast, itwo) {
    .Call('ADMMnet_pletaCm', PACKAGE = 'ADMMnet', xb, exb, nevent, nevent1, loc1, n, ifast, itwo)
}

cvTrimCoxC <- function(beta, nn, nn2, loco, XF, NF, neventF, nevent1F, loc1F, nF, X, N, nevent, nevent1, loc1, n, ifast, itwo) {
    .Call('ADMMnet_cvTrimCoxC', PACKAGE = 'ADMMnet', beta, nn, nn2, loco, XF, NF, neventF, nevent1F, loc1F, nF, X, N, nevent, nevent1, loc1, n, ifast, itwo)
}

EnetCoxC <- function(X, tevent, alpha, lambda, nlambda, wbeta, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast) {
    .Call('ADMMnet_EnetCoxC', PACKAGE = 'ADMMnet', X, tevent, alpha, lambda, nlambda, wbeta, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast)
}

cvEnetCoxC <- function(X, tevent, alpha, lambda, nlambda, wbeta, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast, XF, NF, neventF, nevent1F, loc1F, nF) {
    .Call('ADMMnet_cvEnetCoxC', PACKAGE = 'ADMMnet', X, tevent, alpha, lambda, nlambda, wbeta, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast, XF, NF, neventF, nevent1F, loc1F, nF)
}

NetCoxC <- function(X, tevent, alpha, lambda, nlambda, wbeta, Omega, loc, nadj, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast) {
    .Call('ADMMnet_NetCoxC', PACKAGE = 'ADMMnet', X, tevent, alpha, lambda, nlambda, wbeta, Omega, loc, nadj, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast)
}

cvNetCoxC <- function(X, tevent, alpha, lambda, nlambda, wbeta, Omega, loc, nadj, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast, XF, NF, neventF, nevent1F, loc1F, nF) {
    .Call('ADMMnet_cvNetCoxC', PACKAGE = 'ADMMnet', X, tevent, alpha, lambda, nlambda, wbeta, Omega, loc, nadj, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast, XF, NF, neventF, nevent1F, loc1F, nF)
}

# Register entry points for exported C++ functions
methods::setLoadAction(function(ns) {
    .Call('ADMMnet_RcppExport_registerCCallable', PACKAGE = 'ADMMnet')
})