R/reglca_threshold_parameter.R

Defines functions reglca_threshold_parameter

## File Name: reglca_threshold_parameter.R
## File Version: 0.15

reglca_threshold_parameter <- function(x, regular_type, lambda, vt=1 )
{
    multiply <- TRUE
    # multiply <- ( vt < 1 )
    if (multiply){
        x <- x * vt
    }
    y <- cdm_parameter_regularization(x=x, regular_type=regular_type, regular_lam=lambda)
    if (multiply){
        y <- y / vt
    }
    return(y)
}
alexanderrobitzsch/CDM documentation built on July 3, 2024, 7:42 p.m.