R/cdm_penalty_threshold_mcp.R

Defines functions cdm_penalty_threshold_mcp

Documented in cdm_penalty_threshold_mcp

## File Name: cdm_penalty_threshold_mcp.R
## File Version: 0.04

cdm_penalty_threshold_mcp <- function(beta, lambda, a=3.7)
{
    y <- cdm_penalty_threshold_lasso(val=beta, eta=lambda ) / ( 1 -  1/ a )
    y <- ifelse( abs(beta) > a*lambda, beta, y )
    return(y)
}

Try the CDM package in your browser

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

CDM documentation built on Aug. 25, 2022, 5:08 p.m.