r - 从 R 中的不同拆分列表中提取数据的更好方法

Question

我想使用时间序列 CV 从 10 个拆分中提取测试数据系列。目前，我正在按照以下方式进行操作。我正在寻找一种有效的方法来做到这一点。

library(tidymodels)
library(modeltime)
library(modeltime.resample)
library(tidyverse)
library(timetk)

resamples_tscv <- time_series_cv(
  data        = m750,
  assess      = 6,
  initial     = 200,
  skip        = 1,
  slice_limit = 10
)

resamples_tscv

t1 <- testing(resamples_tscv$splits[[1]])
t2 <-testing(resamples_tscv$splits[[2]])
t3 <-testing(resamples_tscv$splits[[3]])
t4 <-testing(resamples_tscv$splits[[4]])
t5 <-testing(resamples_tscv$splits[[5]])
t6 <-testing(resamples_tscv$splits[[6]])
t7 <-testing(resamples_tscv$splits[[7]])
t8 <-testing(resamples_tscv$splits[[8]])
t9 <-testing(resamples_tscv$splits[[9]])
t10 <-testing(resamples_tscv$splits[[10]])

df <- do.call("rbind", list(t1, t2, t3,t4,t5,t6,t7,t8,t9,t10))
df1 <- df[order(as.Date(df$date, format="%d/%m/%Y")),]

标签： r