R/cdm_penalty_threshold_elnet.R

In CDM: Cognitive Diagnosis Modeling

## File Name: cdm_penalty_threshold_elnet.R
## File Version: 0.05

cdm_penalty_threshold_elnet <- function( beta, lambda, alpha )
{
    lam1 <- lambda * alpha
    lam2 <- lambda * ( 1 - alpha )
    res <- cdm_soft_threshold( val=beta, eta=lam1 )
    res <- res / ( 1 + 2*lam2 )
    return(res)
}