Two Sided Moving Average Plot ts_two_sided_ma_plot

[spsanderson]

This function should return a two-sided moving average plot.

library(healthyR.data)
library(dplyr)
library(timetk)


data_tbl <- healthyR_data%>%
    filter(ip_op_flag == 'I') %>%
    summarise_by_time(
        .date_var = visit_end_date_time,
        .by = "month",
        value = n()
    ) %>%
    filter_by_time(
        .date_var = visit_end_date_time,
        .start_date = "2015",
        .end_date = "2019"
    ) %>%
    rename(date_col = visit_end_date_time)

ts_two_sided_ma_plot(.data, .date_col, .value_col, .interactive)

[spsanderson]

Closing this as the ts_sma_plot can handle alignment via timetk::slidify_vec() function rendering this obsolete.