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