Leaky ReLU activation function
Examples
lReLU(c(-1, 0, 1))
#> [1] -0.01 0.00 1.00
# Can use in rxode2 as well
r <- rxode2({r <- lReLU(time)})
#>
#>
#> using C compiler: ‘gcc (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0’
e <- et(c(-1, 0, 1))
rxSolve(r, e)
#> ── Solved rxode2 object ──
#> ── Parameters (value$params): ──
#> # A tibble: 1 × 0
#> ── Initial Conditions (value$inits): ──
#> named numeric(0)
#> ── First part of data (object): ──
#> # A tibble: 3 × 2
#> time r
#> <dbl> <dbl>
#> 1 -1 -0.01
#> 2 0 0
#> 3 1 1