R/RcppExports.R

In LassoBacktracking: Modelling Interactions in High-Dimensional Data with Backtracking

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

scale_cen <- function(x, scales, centres, p, p_max, var_names_main) {
    .Call(`_LassoBacktracking_scale_cen`, x, scales, centres, p, p_max, var_names_main)
}

change_dim <- function(dim, p_eff) {
    .Call(`_LassoBacktracking_change_dim`, dim, p_eff)
}

zero <- function(beta, l_start) {
    .Call(`_LassoBacktracking_zero`, beta, l_start)
}

in_log <- function(a, b) {
    .Call(`_LassoBacktracking_in_log`, a, b)
}

any_indmax <- function(violations, p_eff) {
    .Call(`_LassoBacktracking_any_indmax`, violations, p_eff)
}

which_indmax <- function(violations, p_eff) {
    .Call(`_LassoBacktracking_which_indmax`, violations, p_eff)
}

add_inter_orig <- function(X, scales, centres, p_eff, inter_orig) {
    .Call(`_LassoBacktracking_add_inter_orig`, X, scales, centres, p_eff, inter_orig)
}

add_inter <- function(X, active_old, active_new, scales, centres, p_eff, interactions, p, inter_orig) {
    .Call(`_LassoBacktracking_add_inter`, X, active_old, active_new, scales, centres, p_eff, interactions, p, inter_orig)
}

inner_prod_abs_comp <- function(x, I, y, l0) {
    .Call(`_LassoBacktracking_inner_prod_abs_comp`, x, I, y, l0)
}

inner_prod_abs_comp2 <- function(x, I, y, p_eff, l0) {
    .Call(`_LassoBacktracking_inner_prod_abs_comp2`, x, I, y, p_eff, l0)
}

any_ind <- function(v, indices) {
    .Call(`_LassoBacktracking_any_ind`, v, indices)
}

beta_active <- function(x, beta, resid_cur, active_set, l, thresh, maxit, lam, alpha_lam, alpha, alpha_lam_div, null_dev) {
    .Call(`_LassoBacktracking_beta_active`, x, beta, resid_cur, active_set, l, thresh, maxit, lam, alpha_lam, alpha, alpha_lam_div, null_dev)
}

find_l0 <- function(X, p_eff_old, p_eff, resid_cur, l0, lambda) {
    .Call(`_LassoBacktracking_find_l0`, X, p_eff_old, p_eff, resid_cur, l0, lambda)
}