R/cdm_positivity_restriction.R

Defines functions cdm_positivity_restriction

## File Name: cdm_positivity_restriction.R
## File Version: 0.02

cdm_positivity_restriction <- function(x, positive)
{
    x <- ifelse( ( x < 0 ) & positive, 0, x )
    return(x)
}
alexanderrobitzsch/CDM documentation built on Aug. 30, 2022, 12:31 a.m.