iilasso: Independently Interpretable Lasso

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

#' calculate covariance matrix
#' 
#' @param X design matrix
#' @return covariance matrix
#' @keywords internal
#' 
covC <- function(X) {
    .Call('_iilasso_covC', PACKAGE = 'iilasso', X)
}

#' soft thresholding function
#' 
#' @param z z
#' @param g gamma
#' @return value
#' @keywords internal
#' 
softThresholdC <- function(z, g) {
    .Call('_iilasso_softThresholdC', PACKAGE = 'iilasso', z, g)
}

#' update rule function
#' 
#' @param u u
#' @param l1 l1
#' @param l2 l2
#' @param v v
#' @return value
#' @keywords internal
#' 
updateLassoC <- function(u, l1, l2, v) {
    .Call('_iilasso_updateLassoC', PACKAGE = 'iilasso', u, l1, l2, v)
}

#' Optimize a linear regression model by coordinate descent algorithm using a covariance matrix
#' 
#' @param Gamma covariance matrix of explanatory variables
#' @param gamma covariance vector of explanatory and objective variables
#' @param lambda lambda sequence
#' @param warm warm start direction: "lambda" (default) or "delta"
#' @param delta ratio of regularization between l1 and exclusive penalty terms
#' @param R matrix using exclusive penalty term
#' @param maxit max iteration
#' @param eps convergence threshold for optimization
#' @param init_beta initial values of beta
#' @param strong whether use strong screening or not
#' @return standardized beta
#' @keywords internal
#' 
covCdaC <- function(Gamma, gamma, lambda, R, init_beta, delta = 0, maxit = 1e+4, eps = 1e-04, warm = "lambda", strong = TRUE) {
    .Call('_iilasso_covCdaC', PACKAGE = 'iilasso', Gamma, gamma, lambda, R, init_beta, delta, maxit, eps, warm, strong)
}

#' Optimize a logistic regression model by coordinate descent algorithm using a design matrix
#' 
#' @param X_tilde standardized matrix of explanatory variables
#' @param y vector of objective variable
#' @param lambda lambda sequence
#' @param warm warm start direction: "lambda" (default) or "delta"
#' @param delta ratio of regularization between l1 and exclusive penalty terms
#' @param R matrix using exclusive penalty term
#' @param maxit max iteration
#' @param eps convergence threshold for optimization
#' @param init_beta initial values of beta
#' @param strong whether use strong screening or not
#' @return standardized beta
#' @keywords internal
#' 
logitCdaC <- function(X_tilde, y, lambda, R, init_beta, delta = 0, maxit = 1e+4, eps = 1e-04, warm = "lambda", strong = TRUE) {
    .Call('_iilasso_logitCdaC', PACKAGE = 'iilasso', X_tilde, y, lambda, R, init_beta, delta, maxit, eps, warm, strong)
}

#' (Experimental) Optimize an ULasso linear regression problem by coordinate descent algorithm using a covariance matrix
#' 
#' @param Gamma covariance matrix of explanatory variables
#' @param gamma covariance vector of explanatory and objective variables
#' @param lambda lambda sequence
#' @param warm warm start direction: "lambda" (default) or "delta"
#' @param delta ratio of regularization between l1 and exclusive penalty terms
#' @param R matrix using exclusive penalty term
#' @param maxit max iteration
#' @param eps convergence threshold for optimization
#' @param init_beta initial values of beta
#' @param strong whether use strong screening or not
#' @return standardized beta
#' @keywords internal
#' 
covCdaC2 <- function(Gamma, gamma, lambda, R, init_beta, delta = 0, maxit = 1e+4, eps = 1e-04, warm = "lambda", strong = TRUE) {
    .Call('_iilasso_covCdaC2', PACKAGE = 'iilasso', Gamma, gamma, lambda, R, init_beta, delta, maxit, eps, warm, strong)
}

#' (Experimental) Optimize an ULasso logistic regression problem by coordinate descent algorithm using a design matrix
#' 
#' @param X_tilde standardized matrix of explanatory variables
#' @param y vector of objective variable
#' @param lambda lambda sequence
#' @param warm warm start direction: "lambda" (default) or "delta"
#' @param delta ratio of regularization between l1 and exclusive penalty terms
#' @param R matrix using exclusive penalty term
#' @param maxit max iteration
#' @param eps convergence threshold for optimization
#' @param init_beta initial values of beta
#' @param strong whether use strong screening or not
#' @return standardized beta
#' @keywords internal
#' 
logitCdaC2 <- function(X_tilde, y, lambda, R, init_beta, delta = 0, maxit = 1e+4, eps = 1e-04, warm = "lambda", strong = TRUE) {
    .Call('_iilasso_logitCdaC2', PACKAGE = 'iilasso', X_tilde, y, lambda, R, init_beta, delta, maxit, eps, warm, strong)
}