GFT_xts = xts::xts(exp(matrix(rnorm(1000), ncol=5)), order.by = Sys.Date() - (200:1))
names(GFT_xts) <- paste0("col", 1:ncol(GFT_xts))
names(GFT_xts)[1] <- "CDC.data"
bootstrap_relative_efficiency(
pred_data = GFT_xts,
model_good = "col2",
model_bench = "col3",
truth="CDC.data",
N = 100
)
Run the code above in your browser using DataLab