R/RcppExports.R

In glmaag: Adaptive LASSO and Network Regularized Generalized Linear Models

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

Coxnet <- function(b, x, tie, tie1, tie2, tie3, del, l, maxiter, cri) {
    .Call(`_glmaag_Coxnet`, b, x, tie, tie1, tie2, tie3, del, l, maxiter, cri)
}

Coxaagg <- function(b, lam1, lam2, ntie, w, x, tie, tie1, tie2, tie3, del, l, dl, maxiter, cri) {
    .Call(`_glmaag_Coxaagg`, b, lam1, lam2, ntie, w, x, tie, tie1, tie2, tie3, del, l, dl, maxiter, cri)
}

cvCoxnet1 <- function(nf, b, x, y, tie, tie1, tie2, tie3, del, l1, l2, lam2, bets, cvwhich, meas, maxiter, cri) {
    .Call(`_glmaag_cvCoxnet1`, nf, b, x, y, tie, tie1, tie2, tie3, del, l1, l2, lam2, bets, cvwhich, meas, maxiter, cri)
}

cvCoxnet1_pal <- function(b, x, xtr, xva, yva, tie, tie1, tie2, tie3, tietr, tie1tr, tie2tr, tie3tr, del, deltr, delva, l1, l2, lam2, bets, meas, maxiter, cri) {
    .Call(`_glmaag_cvCoxnet1_pal`, b, x, xtr, xva, yva, tie, tie1, tie2, tie3, tietr, tie1tr, tie2tr, tie3tr, del, deltr, delva, l1, l2, lam2, bets, meas, maxiter, cri)
}

cvCoxnet2 <- function(nf, b, x, y, tie, ntie, tie1, tie2, tie3, del, l, lam, cvwhich, meas, maxiter, cri) {
    .Call(`_glmaag_cvCoxnet2`, nf, b, x, y, tie, ntie, tie1, tie2, tie3, del, l, lam, cvwhich, meas, maxiter, cri)
}

cvCoxnet2_pal <- function(b, x, xtr, xva, yva, tie, ntie, tie1, tie2, tie3, tietr, ntietr, tie1tr, tie2tr, tie3tr, del, deltr, delva, l, lam, meas, maxiter, cri) {
    .Call(`_glmaag_cvCoxnet2_pal`, b, x, xtr, xva, yva, tie, ntie, tie1, tie2, tie3, tietr, ntietr, tie1tr, tie2tr, tie3tr, del, deltr, delva, l, lam, meas, maxiter, cri)
}

cvCoxaagg <- function(nf, dfmax, ntie, b, w, x, y, tie, tie1, tie2, tie3, del, l, dl, lam1, lam2, cvwhich, meas, maxiter, cri) {
    .Call(`_glmaag_cvCoxaagg`, nf, dfmax, ntie, b, w, x, y, tie, tie1, tie2, tie3, del, l, dl, lam1, lam2, cvwhich, meas, maxiter, cri)
}

ssCoxaagg <- function(ntie, b, w, x, y, tie, tie1, tie2, tie3, del, l, dl, lam1, lam2, sswhich, maxiter, cri) {
    .Call(`_glmaag_ssCoxaagg`, ntie, b, w, x, y, tie, tie1, tie2, tie3, del, l, dl, lam1, lam2, sswhich, maxiter, cri)
}

ssCoxaagg_pal <- function(ntietr, b, w, xtr, tietr, tie1tr, tie2tr, tie3tr, deltr, l, dl, lam1, lam2, maxiter, cri) {
    .Call(`_glmaag_ssCoxaagg_pal`, ntietr, b, w, xtr, tietr, tie1tr, tie2tr, tie3tr, deltr, l, dl, lam1, lam2, maxiter, cri)
}

Coxaagg_search <- function(ntie, dfmax, b, w, x, tie, tie1, tie2, tie3, del, l, dl, lam1, lam2, maxiter, cri) {
    .Call(`_glmaag_Coxaagg_search`, ntie, dfmax, b, w, x, tie, tie1, tie2, tie3, del, l, dl, lam1, lam2, maxiter, cri)
}

Coxaagg_search_pal <- function(ntie, dfmax, b, w, x, tie, tie1, tie2, tie3, del, l, dl, lam1, lam2, maxiter, cri) {
    .Call(`_glmaag_Coxaagg_search_pal`, ntie, dfmax, b, w, x, tie, tie1, tie2, tie3, del, l, dl, lam1, lam2, maxiter, cri)
}

cvCoxaagg_pal <- function(dfmax, ntie, ntietr, b, w, x, xtr, xva, yva, tie, tie1, tie2, tie3, tietr, tie1tr, tie2tr, tie3tr, del, deltr, delva, l, dl, lam1, lam2, meas, maxiter, cri) {
    .Call(`_glmaag_cvCoxaagg_pal`, dfmax, ntie, ntietr, b, w, x, xtr, xva, yva, tie, tie1, tie2, tie3, tietr, tie1tr, tie2tr, tie3tr, del, deltr, delva, l, dl, lam1, lam2, meas, maxiter, cri)
}

findCox1se <- function(n, p, ntie, b, w, x, tie, tie1, tie2, tie3, del, l, dl, maxiter, cri, tune) {
    .Call(`_glmaag_findCox1se`, n, p, ntie, b, w, x, tie, tie1, tie2, tie3, del, l, dl, maxiter, cri, tune)
}

loginet <- function(b0, b, x, y, l, intercept, maxiter, cri) {
    .Call(`_glmaag_loginet`, b0, b, x, y, l, intercept, maxiter, cri)
}

logiaagg <- function(b0, b, lam1, lam2, w, x, y, l, dl, intercept, maxiter, cri) {
    .Call(`_glmaag_logiaagg`, b0, b, lam1, lam2, w, x, y, l, dl, intercept, maxiter, cri)
}

cvlogiaagg <- function(nf, dfmax, b, x, y, l, dl, w, lam1, lam2, cvwhich, intercept, meas, maxiter, cri) {
    .Call(`_glmaag_cvlogiaagg`, nf, dfmax, b, x, y, l, dl, w, lam1, lam2, cvwhich, intercept, meas, maxiter, cri)
}

sslogiaagg <- function(b, x, y, l, dl, w, lam1, lam2, sswhich, intercept, maxiter, cri) {
    .Call(`_glmaag_sslogiaagg`, b, x, y, l, dl, w, lam1, lam2, sswhich, intercept, maxiter, cri)
}

sslogiaagg_pal <- function(b, xtr, ytr, l, dl, w, lam1, lam2, intercept, maxiter, cri) {
    .Call(`_glmaag_sslogiaagg_pal`, b, xtr, ytr, l, dl, w, lam1, lam2, intercept, maxiter, cri)
}

logiaagg_search <- function(dfmax, b, x, y, l, dl, w, lam1, lam2, intercept, maxiter, cri) {
    .Call(`_glmaag_logiaagg_search`, dfmax, b, x, y, l, dl, w, lam1, lam2, intercept, maxiter, cri)
}

logiaagg_search_pal <- function(dfmax, b, x, y, l, dl, w, lam1, lam2, intercept, maxiter, cri) {
    .Call(`_glmaag_logiaagg_search_pal`, dfmax, b, x, y, l, dl, w, lam1, lam2, intercept, maxiter, cri)
}

cvlogiaagg_pal <- function(dfmax, b, xtr, xva, ytr, yva, l, dl, w, lam1, lam2, intercept, meas, maxiter, cri) {
    .Call(`_glmaag_cvlogiaagg_pal`, dfmax, b, xtr, xva, ytr, yva, l, dl, w, lam1, lam2, intercept, meas, maxiter, cri)
}

cvloginet1 <- function(nf, x, y, b, l1, l2, lam2, bets, intercept, cvwhich, meas, maxiter, cri) {
    .Call(`_glmaag_cvloginet1`, nf, x, y, b, l1, l2, lam2, bets, intercept, cvwhich, meas, maxiter, cri)
}

cvloginet1_pal <- function(xtr, xva, ytr, yva, b, l1, l2, lam2, bets, intercept, meas, maxiter, cri) {
    .Call(`_glmaag_cvloginet1_pal`, xtr, xva, ytr, yva, b, l1, l2, lam2, bets, intercept, meas, maxiter, cri)
}

cvloginet2 <- function(nf, x, y, b, l, lam2, intercept, cvwhich, meas, maxiter, cri) {
    .Call(`_glmaag_cvloginet2`, nf, x, y, b, l, lam2, intercept, cvwhich, meas, maxiter, cri)
}

cvloginet2_pal <- function(xtr, xva, ytr, yva, b, l, lam2, intercept, meas, maxiter, cri) {
    .Call(`_glmaag_cvloginet2_pal`, xtr, xva, ytr, yva, b, l, lam2, intercept, meas, maxiter, cri)
}

findlogi1se <- function(b0, b, w, x, y, l, dl, intercept, maxiter, cri, tune) {
    .Call(`_glmaag_findlogi1se`, b0, b, w, x, y, l, dl, intercept, maxiter, cri, tune)
}

lrnet <- function(x, y, l) {
    .Call(`_glmaag_lrnet`, x, y, l)
}

lraagg <- function(b, lam1, lam2, w, x, y, l, dl, maxiter, cri) {
    .Call(`_glmaag_lraagg`, b, lam1, lam2, w, x, y, l, dl, maxiter, cri)
}

cvlrnet1 <- function(nf, x, y, l1, l2, lam2, bets, cvwhich, meas) {
    .Call(`_glmaag_cvlrnet1`, nf, x, y, l1, l2, lam2, bets, cvwhich, meas)
}

cvlrnet1_pal <- function(xtr, xva, ytr, yva, l1, l2, lam2, bets, meas) {
    .Call(`_glmaag_cvlrnet1_pal`, xtr, xva, ytr, yva, l1, l2, lam2, bets, meas)
}

cvlrnet2 <- function(nf, x, y, l, lam2, cvwhich, meas) {
    .Call(`_glmaag_cvlrnet2`, nf, x, y, l, lam2, cvwhich, meas)
}

cvlrnet2_pal <- function(xtr, xva, ytr, yva, l, lam2, meas) {
    .Call(`_glmaag_cvlrnet2_pal`, xtr, xva, ytr, yva, l, lam2, meas)
}

cvlraagg <- function(nf, dfmax, b, w, x, y, l, dl, lam1, lam2, cvwhich, meas, maxiter, cri) {
    .Call(`_glmaag_cvlraagg`, nf, dfmax, b, w, x, y, l, dl, lam1, lam2, cvwhich, meas, maxiter, cri)
}

cvlraagg_pal <- function(dfmax, b, w, xtr, xva, ytr, yva, l, dl, lam1, lam2, meas, maxiter, cri) {
    .Call(`_glmaag_cvlraagg_pal`, dfmax, b, w, xtr, xva, ytr, yva, l, dl, lam1, lam2, meas, maxiter, cri)
}

sslraagg <- function(b, w, x, y, l, dl, lam1, lam2, sswhich, maxiter, cri) {
    .Call(`_glmaag_sslraagg`, b, w, x, y, l, dl, lam1, lam2, sswhich, maxiter, cri)
}

sslraagg_pal <- function(b, w, xtr, ytr, l, dl, lam1, lam2, maxiter, cri) {
    .Call(`_glmaag_sslraagg_pal`, b, w, xtr, ytr, l, dl, lam1, lam2, maxiter, cri)
}

lraagg_search <- function(dfmax, b, w, x, y, l, dl, lam1, lam2, maxiter, cri) {
    .Call(`_glmaag_lraagg_search`, dfmax, b, w, x, y, l, dl, lam1, lam2, maxiter, cri)
}

lraagg_search_pal <- function(dfmax, b, w, x, y, l, dl, lam1, lam2, maxiter, cri) {
    .Call(`_glmaag_lraagg_search_pal`, dfmax, b, w, x, y, l, dl, lam1, lam2, maxiter, cri)
}

findlr1se <- function(b, w, x, y, l, dl, maxiter, cri, tune) {
    .Call(`_glmaag_findlr1se`, b, w, x, y, l, dl, maxiter, cri, tune)
}