R/cdm_penalty_values_tlp.R

Defines functions cdm_penalty_values_tlp

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

cdm_penalty_values_tlp <- function(x, tau )
{
    y <- abs(x) / tau
    y <- ifelse( y > 1, 1, 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.