suppressPackageStartupMessages(library(dplyr))
len_out <- 25
by_unit <- "month"
start_date <- as.Date("2021-01-01")
data_tbl <- tibble(
date_col = seq.Date(from = start_date, length.out = len_out, by = by_unit),
a = rnorm(len_out),
b = runif(len_out)
)
vec_1 <- hai_winsorized_truncate_vec(data_tbl$a, .fraction = 0.05)
plot(data_tbl$a)
lines(data_tbl$a)
lines(vec_1, col = "blue")
Run the code above in your browser using DataLab