Log-transforms the input x if mult_fit is TRUE; otherwise, returns the original input x unchanged.

log_if(x, mult_fit)

Arguments

x

A numeric vector to be transformed.

mult_fit

Logical; set to TRUE to apply logarithmic transformation, and FALSE to keep the original input.

Value

A numeric vector after applying the logarithmic transformation (if mult_fit = TRUE); otherwise, it returns the original input.

Examples

x <- runif(1e4, 1, 100)
all.equal(log_if(x, TRUE), log(x))
#> [1] TRUE
all.equal(log_if(x, FALSE), x)
#> [1] TRUE