R/RcppExports.R

In matt-sutton/sgspls: Sparse group-subgroup partial least squares

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

softthresh <- function(Mx, lambda) {
    .Call(`_sgspls_softthresh`, Mx, lambda)
}

lambdazerosubgroup <- function(lambda, Mx, subgroupX, alpha1, alpha2) {
    .Call(`_sgspls_lambdazerosubgroup`, lambda, Mx, subgroupX, alpha1, alpha2)
}

sgssoftthresh <- function(Mx, subgroupX, lambda, alpha1, alpha2, g) {
    .Call(`_sgspls_sgssoftthresh`, Mx, subgroupX, lambda, alpha1, alpha2, g)
}

updataU <- function(Mx, groupX, subgroupX, lambda, alpha1, alpha2) {
    .Call(`_sgspls_updataU`, Mx, groupX, subgroupX, lambda, alpha1, alpha2)
}