# 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.