R/RcppExports.R

In selectiveInference: Tools for Post-Selection Inference

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

solve_QP <- function(Sigma, bound, max_iter, theta, linear_func, gradient, ever_active, nactive, kkt_tol, objective_tol, parameter_tol, max_active, kkt_stop, objective_stop, param_stop) {
    .Call('_selectiveInference_solve_QP', PACKAGE = 'selectiveInference', Sigma, bound, max_iter, theta, linear_func, gradient, ever_active, nactive, kkt_tol, objective_tol, parameter_tol, max_active, kkt_stop, objective_stop, param_stop)
}

solve_QP_wide <- function(X, bound, ridge_term, max_iter, theta, linear_func, gradient, X_theta, ever_active, nactive, kkt_tol, objective_tol, parameter_tol, max_active, kkt_stop, objective_stop, param_stop) {
    .Call('_selectiveInference_solve_QP_wide', PACKAGE = 'selectiveInference', X, bound, ridge_term, max_iter, theta, linear_func, gradient, X_theta, ever_active, nactive, kkt_tol, objective_tol, parameter_tol, max_active, kkt_stop, objective_stop, param_stop)
}

update1_ <- function(Q2, w, m, k) {
    .Call('_selectiveInference_update1_', PACKAGE = 'selectiveInference', Q2, w, m, k)
}

downdate1_ <- function(Q1, R, j0, m, n) {
    .Call('_selectiveInference_downdate1_', PACKAGE = 'selectiveInference', Q1, R, j0, m, n)
}

log_density_gaussian_ <- function(noise_scale, internal_linear, internal_state, optimization_linear, optimization_state, offset) {
    .Call('_selectiveInference_log_density_gaussian_', PACKAGE = 'selectiveInference', noise_scale, internal_linear, internal_state, optimization_linear, optimization_state, offset)
}

log_density_gaussian_conditional_ <- function(noise_scale, optimization_linear, optimization_state, offset) {
    .Call('_selectiveInference_log_density_gaussian_conditional_', PACKAGE = 'selectiveInference', noise_scale, optimization_linear, optimization_state, offset)
}

log_density_laplace_ <- function(noise_scale, internal_linear, internal_state, optimization_linear, optimization_state, offset) {
    .Call('_selectiveInference_log_density_laplace_', PACKAGE = 'selectiveInference', noise_scale, internal_linear, internal_state, optimization_linear, optimization_state, offset)
}

log_density_laplace_conditional_ <- function(noise_scale, optimization_linear, optimization_state, offset) {
    .Call('_selectiveInference_log_density_laplace_conditional_', PACKAGE = 'selectiveInference', noise_scale, optimization_linear, optimization_state, offset)
}

solve_barrier_ <- function(conjugate_arg, precision, feasible_point, max_iter, min_iter, value_tol, initial_step) {
    .Call('_selectiveInference_solve_barrier_', PACKAGE = 'selectiveInference', conjugate_arg, precision, feasible_point, max_iter, min_iter, value_tol, initial_step)
}