R/RcppExports.R

Defines functions .plsimestCore .plsimCore .elasticNet .scad .lasso .etandder .epand .epan

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

.epan <- function(t, h0) {
    .Call(`_PLSiMCpp_epan`, t, h0)
}

.epand <- function(t, h0) {
    .Call(`_PLSiMCpp_epand`, t, h0)
}

.etandder <- function(a, b, h, y, z, x, flag = 1L) {
    .Call(`_PLSiMCpp_etandder`, a, b, h, y, z, x, flag)
}

.lasso <- function(x, y, lambda, verbose = 1L, MaxStep = 20L) {
    .Call(`_PLSiMCpp_lasso`, x, y, lambda, verbose, MaxStep)
}

.scad <- function(x, y, lambda, verbose = 1L, MaxStep = 20L) {
    .Call(`_PLSiMCpp_scad`, x, y, lambda, verbose, MaxStep)
}

.elasticNet <- function(x, y, lambda, l1_ratio, verbose = 1L, MaxStep = 20L) {
    .Call(`_PLSiMCpp_elasticNet`, x, y, lambda, l1_ratio, verbose, MaxStep)
}

.plsimCore <- function(x, y, z, h, zetaini, lambda, l1_ratio, MaxStep = 1L, Method = "SCAD", flag = 1L, verbose = 1L) {
    .Call(`_PLSiMCpp_plsimCore`, x, y, z, h, zetaini, lambda, l1_ratio, MaxStep, Method, flag, verbose)
}

.plsimestCore <- function(x, y, z, h, zetaini, MaxStep = 200L, flag = 1L) {
    .Call(`_PLSiMCpp_plsimestCore`, x, y, z, h, zetaini, MaxStep, flag)
}

Try the PLSiMCpp package in your browser

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

PLSiMCpp documentation built on Sept. 24, 2022, 5:05 p.m.