# \donttest{
data("ParaSetEx")
data("InpForOutEx")
data("NumOutEx")
ModelType <- "JPS original"
Economy <- "Brazil"
FacLab <- LabFac(N = 1, DomVar = "Eco_Act", GlobalVar = "Gl_Eco_Act", Economy, ModelType)
# Adjust Forecasting setting
InpForOutEx[[ModelType]]$Bootstrap <- list(
WishBootstrap = 1, methodBS = "bs", BlockLength = 4,
ndraws = 5, pctg = 95
)
Boot <- Bootstrap(ModelType, ParaSetEx, NumOutEx, Economy, InpForOutEx, FacLab,
JLLlist = NULL,
GVARlist = NULL, WishBC = FALSE, BRWlist = NULL, Folder2save = NULL, verbose = FALSE
)
# }
Run the code above in your browser using DataLab