# NOT RUN {
library(tidyverse)
library(tidyquant)
library(rsample)
library(timetk)
FB_tbl <- FANG %>%
filter(symbol == "FB") %>%
select(symbol, date, adjusted)
resample_spec <- time_series_cv(
FB_tbl,
initial = 150, assess = 50, skip = 50,
cumulative = FALSE,
lag = 30,
slice_limit = n())
resample_spec %>% tk_time_series_cv_plan()
# }
Run the code above in your browser using DataLab