如何使用 R 中的repices 包应用反双曲正弦？

Question

我正在探索 recipes 包来为线性回归准备数据。但即使使用反双曲正弦对两个变量进行简单变换也不会产生我期望的结果。我在这里犯了什么错？

library(tidyverse)
library(recipes)

set.seed(1)

df <- tibble(
  x = runif(4) * 10,
  y = runif(4) * 10
)

# manual transformation
df %>% 
  mutate(x = asinh(x),
         y = asinh(y))
#> # A tibble: 4 × 2
#>       x     y
#>   <dbl> <dbl>
#> 1  1.70  1.45
#> 2  2.02  2.89
#> 3  2.45  2.94
#> 4  2.90  2.59

# transformation using recipes
rec_obj <- recipe(y ~ x, data = df)

rec_obj %>% 
  step_hyperbolic(x, y, func = "sin", inverse = TRUE) %>% 
  prep() %>%
  bake(new_data = NULL)
#> Warning in func(getElement(new_data, col_names[i])): NaNs produced

#> Warning in func(getElement(new_data, col_names[i])): NaNs produced
#> # A tibble: 4 × 2
#>       x     y
#>   <dbl> <dbl>
#> 1   NaN   NaN
#> 2   NaN   NaN
#> 3   NaN   NaN
#> 4   NaN   NaN

^{由 reprex 软件包 (v2.0.1) 创建于 2022 年 3 月 1 日}