GFT_xts = xts::xts(exp(matrix(rnorm(1000), ncol=10)), order.by = Sys.Date() - (100:1))
names(GFT_xts) <- paste0("col", 1:10)
names(GFT_xts)[1] <- "CDC.data"
summary_argo(
GFT_xts = GFT_xts,
model_names = colnames(GFT_xts)[-1],
legend_names = paste0(colnames(GFT_xts)[-1], "legend"),
periods = c(paste0(zoo::index(GFT_xts)[1], "/", zoo::index(GFT_xts)[49]),
paste0(zoo::index(GFT_xts)[50], "/", zoo::index(GFT_xts)[100])),
whole_period="2009-03/"
)
Run the code above in your browser using DataLab