library(dplyr)
library(timetk)
predictors <- m4_monthly %>%
filter(id == "M750") %>%
select(-value)
index_tbl <- parse_index_from_data(predictors)
index_tbl
period <- parse_period_from_index(index_tbl, period = "1 year")
period
Run the code above in your browser using DataLab