# NOT RUN {
suppressPackageStartupMessages(library(timetk))
ts_ymwdh_tbl(
.data = m4_daily
, .date_col = date
) %>%
ts_median_excess_plt(
.date_col = date
, .value_col = value
, .x_axis = wk
, .ggplot_group_var = yr
, .years_back = 5
)
# }
Run the code above in your browser using DataLab