R/RcppExports.R

In bssherwood/rqpen: Penalized Quantile Regression

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

stl_sort <- function(x) {
    .Call('_rqPen_stl_sort', PACKAGE = 'rqPen', x)
}

find_indices <- function(x, k) {
    .Call('_rqPen_find_indices', PACKAGE = 'rqPen', x, k)
}

rq_loss_aug <- function(r, tau) {
    .Call('_rqPen_rq_loss_aug', PACKAGE = 'rqPen', r, tau)
}

rq_huber_deriv_aug <- function(r, tau, gmma) {
    .Call('_rqPen_rq_huber_deriv_aug', PACKAGE = 'rqPen', r, tau, gmma)
}

neg_gradient_aug <- function(r, weights, tau, gmma, x, ntau) {
    .Call('_rqPen_neg_gradient_aug', PACKAGE = 'rqPen', r, weights, tau, gmma, x, ntau)
}

negGradientAug <- function(r, weights, tau, gmma, x, ntau) {
    .Call('_rqPen_negGradientAug', PACKAGE = 'rqPen', r, weights, tau, gmma, x, ntau)
}

l2_norm <- function(x) {
    .Call('_rqPen_l2_norm', PACKAGE = 'rqPen', x)
}

weighted_norm <- function(x, normweights) {
    .Call('_rqPen_weighted_norm', PACKAGE = 'rqPen', x, normweights)
}

solvebetaCpp <- function(x, y, n, tau, gmma, weights, groupIndex, lambdaj, wlambda, wtau, eigenval, betaini, maxIter, epsilon, ntau) {
    .Call('_rqPen_solvebetaCpp', PACKAGE = 'rqPen', x, y, n, tau, gmma, weights, groupIndex, lambdaj, wlambda, wtau, eigenval, betaini, maxIter, epsilon, ntau)
}