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