GFT_xts = xts::xts(exp(matrix(rnorm(500), ncol=5)), order.by = Sys.Date() - (100:1))
names(GFT_xts) <- paste0("col", 1:ncol(GFT_xts))
names(GFT_xts)[1] <- "CDC.data"
# \donttest{
boot_re(
pred_data = GFT_xts,
period.all = c(paste0(zoo::index(GFT_xts)[1], "/", zoo::index(GFT_xts)[50]),
paste0(zoo::index(GFT_xts)[51], "/", zoo::index(GFT_xts)[100])),
model_good = "col2",
bench.all = c("col3", "col4"),
type = "mse",
truth="CDC.data",
l = 5,
N = 20
)
# }
Run the code above in your browser using DataLab