Plot an Insample-Forecast of the OSEM Model

Usage

# S3 method for class 'osem.forecast.insample'
plot(x, title = "OSEM Insample Hindcasts", ...)

Arguments

x: An object of class osem.forecast.insample, which is the output from the forecast_insample function.
title: Character. Title of the plot. Default is "OSEM Model Forecast".
...: Additional arguments passed to the plotting function.

Examples

spec <- dplyr::tibble(
type = c(
  "d",
  "d",
  "n"
),
dependent = c(
  "StatDiscrep",
  "TOTS",
  "Import"
),
independent = c(
  "TOTS - FinConsExpHH - FinConsExpGov - GCapitalForm - Export",
  "GValueAdd + Import",
  "FinConsExpHH + GCapitalForm"
)
)
# \donttest{
a <- run_model(specification = spec, dictionary = NULL,
inputdata_directory = NULL, primary_source = "download",
save_to_disk = NULL, present = FALSE)
#> Dataset query already saved in cache_list.json...
#> Reading cache file /tmp/Rtmpb3d2BN/eurostat/19d1eb40c3b65782d7a4291ef4604d7e.rds
#> Table  namq_10_a10  read from cache file:  /tmp/Rtmpb3d2BN/eurostat/19d1eb40c3b65782d7a4291ef4604d7e.rds
#> Dataset query already saved in cache_list.json...
#> Reading cache file /tmp/Rtmpb3d2BN/eurostat/acb856c710a5db9a66c375d7a439564a.rds
#> Table  namq_10_gdp  read from cache file:  /tmp/Rtmpb3d2BN/eurostat/acb856c710a5db9a66c375d7a439564a.rds
#> 
#> --- Estimation begins ---
#> Estimating Import = FinConsExpHH + GCapitalForm 
#> Constructing TOTS = GValueAdd + Import 
#> Constructing StatDiscrep = TOTS - FinConsExpHH - FinConsExpGov - GCapitalForm - Export 

plot(forecast_model(a))
#> No exogenous values provided. Model will forecast the exogenous values with an AR4 process (incl. Q dummies, IIS and SIS w 't.pval = 0.001').
#> Alternative is exog_fill_method = 'last'.



# }