将时间序列数据在Train和test set中拆分，年份选择在r中

Question

目前我正在使用这个，但它没有给出测试集

后的写入数字

p <- read.csv("steel.csv")
p$Date= parse_date_time(p$Date, "mdy")
train=ts(p$data,c(2014,1),c(2019,06),12)
test=ts(p$data,c(2019,07),c(2020,06),12)

请给出任何解决方案。也可用于shiny

Answer 1

为"ts"类的一个对象的子集，使用window。

## Using January 2014 as start date:
set.seed(2022)
x <- cumsum(1 + round(rnorm(78), 2))
x <- ts(x, start = c(2014, 1), frequency = 12)
train <- window(x, start = c(2014, 1), end = c(2019, 6))
test <- window(x, start = c(2019, 07), end = c(2020, 6))