# Setting up a ts_data and making a temporal split
# Load example dataset and build windows
data(tsd)
ts <- ts_data(tsd$y, 10)
# Separating into train and test
test_size <- 3
samp <- ts_sample(ts, test_size)
# First five rows from training data
ts_head(samp$train, 5)
# Last five rows from training data
ts_head(samp$train[-c(1:(nrow(samp$train)-5)),])
# Testing data
ts_head(samp$test)
Run the code above in your browser using DataLab