data("NumOutEx")
ModelType <- "JPS original"
Economy <- "Brazil"
IRFhoriz <- 20
irf_Out <- IRFandGIRFgraphs(ModelType, NumOutEx,
WishPdynamicsgraphs = FALSE, WishYieldsgraphs = TRUE, IRFhoriz,
PathsGraphs = NULL, OutputType = "GIRF", Economy, Folder2save = NULL,
verbose = FALSE
)
Run the code above in your browser using DataLab