1

recipes線形回帰用にデータを準備するためにパッケージを調査しています。しかし、逆双曲線正弦を使用した 2 つの変数の単純な変換でさえ、期待した結果が得られません。ここで何が間違っていますか?

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-03-01 に作成

4

0 に答える 0