R/RcppExports.R

Defines functions scaleC OmegaC OmegaSC maxLambdaLmC cvTrimLmC cvHardLmC EnetLmC cvEnetLmC NetLmC cvNetLmC maxLambdaCoxC pletaCm cvTrimCoxC cvHardCoxC EnetCoxC cvEnetCoxC NetCoxC cvNetCoxC maxLambdaLogC cvTrimLogC cvHardLogC EnetLogC cvEnetLogC NetLogC cvNetLogC

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

scaleC <- function(X) {
    .Call('_APML0_scaleC', PACKAGE = 'APML0', X)
}

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

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

maxLambdaLmC <- function(X, y, alpha, wbeta, N0, p) {
    .Call('_APML0_maxLambdaLmC', PACKAGE = 'APML0', X, y, alpha, wbeta, N0, p)
}

cvTrimLmC <- function(beta, nn, nn2, loco, X, y, N, p, XF, yF, NF) {
    .Call('_APML0_cvTrimLmC', PACKAGE = 'APML0', beta, nn, nn2, loco, X, y, N, p, XF, yF, NF)
}

cvHardLmC <- function(beta, betaSTD, cut, wbeta, X, y, N, p, XF, yF, NF) {
    .Call('_APML0_cvHardLmC', PACKAGE = 'APML0', beta, betaSTD, cut, wbeta, X, y, N, p, XF, yF, NF)
}

EnetLmC <- function(X, y, alpha, lambda, nlambda, ilambda, wbeta, wbeta2, p, N0, thresh, maxit, thresh2) {
    .Call('_APML0_EnetLmC', PACKAGE = 'APML0', X, y, alpha, lambda, nlambda, ilambda, wbeta, wbeta2, p, N0, thresh, maxit, thresh2)
}

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

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

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

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

pletaCm <- function(xb, exb, nevent, nevent1, loc1, n, ifast, itwo) {
    .Call('_APML0_pletaCm', PACKAGE = 'APML0', 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('_APML0_cvTrimCoxC', PACKAGE = 'APML0', beta, nn, nn2, loco, XF, NF, neventF, nevent1F, loc1F, nF, X, N, nevent, nevent1, loc1, n, ifast, itwo)
}

cvHardCoxC <- function(beta, betaSTD, cut, wbeta, p, XF, NF, neventF, nevent1F, loc1F, nF, X, N, nevent, nevent1, loc1, n, ifast, itwo) {
    .Call('_APML0_cvHardCoxC', PACKAGE = 'APML0', beta, betaSTD, cut, wbeta, p, XF, NF, neventF, nevent1F, loc1F, nF, X, N, nevent, nevent1, loc1, n, ifast, itwo)
}

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

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

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

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

maxLambdaLogC <- function(X, Z, alpha, wbeta, N0, p) {
    .Call('_APML0_maxLambdaLogC', PACKAGE = 'APML0', X, Z, alpha, wbeta, N0, p)
}

cvTrimLogC <- function(beta, nn, nn2, loco, X, y, N, XF, yF, NF, thresh, maxit, threshP) {
    .Call('_APML0_cvTrimLogC', PACKAGE = 'APML0', beta, nn, nn2, loco, X, y, N, XF, yF, NF, thresh, maxit, threshP)
}

cvHardLogC <- function(beta, betaSTD, cut, wbeta, X, y, N, p, XF, yF, NF, thresh, maxit, threshP) {
    .Call('_APML0_cvHardLogC', PACKAGE = 'APML0', beta, betaSTD, cut, wbeta, X, y, N, p, XF, yF, NF, thresh, maxit, threshP)
}

EnetLogC <- function(X, y, alpha, lambda, nlambda, ilambda, wbeta, wbetai, p, N0, thresh, maxit, threshP) {
    .Call('_APML0_EnetLogC', PACKAGE = 'APML0', X, y, alpha, lambda, nlambda, ilambda, wbeta, wbetai, p, N0, thresh, maxit, threshP)
}

cvEnetLogC <- function(X, y, alpha, lambda, nlambda, wbeta, wbetai, p, N0, thresh, maxit, XF, yF, NF, threshP) {
    .Call('_APML0_cvEnetLogC', PACKAGE = 'APML0', X, y, alpha, lambda, nlambda, wbeta, wbetai, p, N0, thresh, maxit, XF, yF, NF, threshP)
}

NetLogC <- function(X, y, alpha, lambda, nlambda, ilambda, wbeta, wbetai, Omega, loc, nadj, p, N0, thresh, maxit, threshP) {
    .Call('_APML0_NetLogC', PACKAGE = 'APML0', X, y, alpha, lambda, nlambda, ilambda, wbeta, wbetai, Omega, loc, nadj, p, N0, thresh, maxit, threshP)
}

cvNetLogC <- function(X, y, alpha, lambda, nlambda, wbeta, wbetai, Omega, loc, nadj, p, N0, thresh, maxit, XF, yF, NF, threshP) {
    .Call('_APML0_cvNetLogC', PACKAGE = 'APML0', X, y, alpha, lambda, nlambda, wbeta, wbetai, Omega, loc, nadj, p, N0, thresh, maxit, XF, yF, NF, threshP)
}

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

Try the APML0 package in your browser

Any scripts or data that you put into this service are public.

APML0 documentation built on March 26, 2020, 8:01 p.m.