Hermite polynomial functions

This function returns a Hermite polynomial function defined using mpoly::hermite.

Arguments

shape

Integer. A value between 1 to 4.

Value

A function.

Examples

POLY_MODEL$hermite(1)
#> function (.) 
#> {
#>     if (length(.) > 1) {
#>         .[] <- sapply(., f)
#>         return(.)
#>     }
#>     -1 + .^2
#> }
#> <environment: 0x10d0739e0>
POLY_MODEL$hermite(2)
#> function (.) 
#> {
#>     if (length(.) > 1) {
#>         .[] <- sapply(., f)
#>         return(.)
#>     }
#>     -3 * . + .^3
#> }
#> <environment: 0x109bd5fa8>
POLY_MODEL$hermite(3)
#> function (.) 
#> {
#>     if (length(.) > 1) {
#>         .[] <- sapply(., f)
#>         return(.)
#>     }
#>     -15 + 45 * .^2 - 15 * .^4 + .^6
#> }
#> <environment: 0x10b3c2c68>
POLY_MODEL$hermite(4)
#> function (.) 
#> {
#>     if (length(.) > 1) {
#>         .[] <- sapply(., f)
#>         return(.)
#>     }
#>     -34459425 + 310134825 * .^2 - 413513100 * .^4 + 192972780 * 
#>         .^6 - 41351310 * .^8 + 4594590 * .^10 - 278460 * .^12 + 
#>         9180 * .^14 - 153 * .^16 + .^18
#> }
#> <environment: 0x11c66e9d0>