suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(recipes))
date_seq <- seq.Date(from = as.Date("2013-01-01"), length.out = 100, by = "month")
val_seq <- rep(rnorm(10, mean = 6, sd = 2), times = 10)
df_tbl <- tibble(
date_col = date_seq,
value = val_seq
)
rec_obj <- recipe(value ~ ., df_tbl)
hai_data_trig(
.recipe_object = rec_obj,
value,
.type_of_scale = "sinh"
)$scale_rec_obj %>%
get_juiced_data()
Run the code above in your browser using DataLab