R/RcppExports.R

Defines functions rcpp_wtvdz calc_delays compute_gcd line_search centered_data pois_obj one_norm doDtv doDv create_lambda_test get_D get_Dtil rcpp_tvdz rtestim_path prox_newton_testing

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

prox_newton_testing <- function(M, Minner, Mline, korder, y, x, w, lambda, ls_alpha, ls_gamma, tol) {
    .Call(`_rtestim_prox_newton_testing`, M, Minner, Mline, korder, y, x, w, lambda, ls_alpha, ls_gamma, tol)
}

rtestim_path <- function(y, x, w, korder, lambda, lambdamax = -1, lambdamin = -1, nsol = 100L, rho = -1, maxiter = 1e5L, maxiter_newton = 50L, maxiter_line = 5L, tolerance = 1e-3, lambda_min_ratio = 1e-4, ls_alpha = 0.5, ls_gamma = 0.9, verbose = 0L) {
    .Call(`_rtestim_rtestim_path`, y, x, w, korder, lambda, lambdamax, lambdamin, nsol, rho, maxiter, maxiter_newton, maxiter_line, tolerance, lambda_min_ratio, ls_alpha, ls_gamma, verbose)
}

rcpp_tvdz <- function(y, z, lambda) {
    .Call(`_rtestim_rcpp_tvdz`, y, z, lambda)
}

get_Dtil <- function(k, xd) {
    .Call(`_rtestim_get_Dtil`, k, xd)
}

get_D <- function(k, xd) {
    .Call(`_rtestim_get_D`, k, xd)
}

create_lambda_test <- function(lambda, lambdamin, lambdamax, lambda_min_ratio, nsol) {
    .Call(`_rtestim_create_lambda_test`, lambda, lambdamin, lambdamax, lambda_min_ratio, nsol)
}

doDv <- function(v, k, xd) {
    .Call(`_rtestim_doDv`, v, k, xd)
}

doDtv <- function(v, k, xd) {
    .Call(`_rtestim_doDtv`, v, k, xd)
}

one_norm <- function(z) {
    .Call(`_rtestim_one_norm`, z)
}

pois_obj <- function(ord, y, x, w, theta, lambda) {
    .Call(`_rtestim_pois_obj`, ord, y, x, w, theta, lambda)
}

centered_data <- function(y, w, theta) {
    .Call(`_rtestim_centered_data`, y, w, theta)
}

line_search <- function(s, lambda, alpha, gamma, y, x, w, n, ord, theta, theta_old, M) {
    .Call(`_rtestim_line_search`, s, lambda, alpha, gamma, y, x, w, n, ord, theta, theta_old, M)
}

compute_gcd <- function(x) {
    .Call(`_rtestim_compute_gcd`, x)
}

calc_delays <- function(x, y) {
    .Call(`_rtestim_calc_delays`, x, y)
}

rcpp_wtvdz <- function(y, z, lambda, weights) {
    .Call(`_rtestim_rcpp_wtvdz`, y, z, lambda, weights)
}

# Register entry points for exported C++ functions
methods::setLoadAction(function(ns) {
    .Call(`_rtestim_RcppExport_registerCCallable`)
})

Try the rtestim package in your browser

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

rtestim documentation built on Aug. 8, 2025, 6:21 p.m.