diff --git a/R/gmd.R b/R/gmd.R index 54f7fd4..9f738b8 100644 --- a/R/gmd.R +++ b/R/gmd.R @@ -72,28 +72,53 @@ gmd <- function(variables = NULL, country = NULL, version = NULL, "cons" = "Total Consumption", "rcons" = "Real Total Consumption", "cons_GDP" = "Total Consumption as % of GDP", + "cons_USD" = "Total Consumption in USD", "inv" = "Total Investment", "inv_GDP" = "Total Investment as % of GDP", + "inv_USD" = "Total Investment in USD", "finv" = "Fixed Investment", "finv_GDP" = "Fixed Investment as % of GDP", + "finv_USD" = "Fixed Investment in USD", "exports" = "Total Exports", "exports_GDP" = "Total Exports as % of GDP", + "exports_USD" = "Total Exports in USD", "imports" = "Total Imports", "imports_GDP" = "Total Imports as % of GDP", + "imports_USD" = "Total Imports in USD", "CA" = "Current Account Balance", "CA_GDP" = "Current Account Balance as % of GDP", "USDfx" = "Exchange Rate against USD", "REER" = "Real Effective Exchange Rate, 2010 = 100", - "govexp" = "Government Expenditure", + "govexp" = "Consolidated government Expenditure", + "gen_govexp" = "General government Expenditure", + "gen_govexp_GDP" = "General gentral government Expenditure as % of GDP", + "cgovexp" = "Central government Expenditure", + "cgovexp_GDP" = "Central government Expenditure as % of GDP", + "cgovrev" = "Central government Revenue", + "gen_govrev" = "General government Revenue", + "gen_govrev_GDP" = "General government Revenue as % of GDP", + "cgovrev_GDP" = "Central government Revenue as % of GDP", "govexp_GDP" = "Government Expenditure as % of GDP", - "govrev" = "Government Revenue", + "govrev" = "Consolidated government Revenue", "govrev_GDP" = "Government Revenue as % of GDP", - "govtax" = "Government Tax Revenue", + "govtax" = "Consolidated government Tax Revenue", + "gen_govtax" = "General government Tax Revenue", + "cgovtax" = "Central government Tax Revenue", + "gen_govtax_GDP" = "General government Tax Revenue as % of GDP", + "cgovtax_GDP" = "Central government Tax Revenue as % of GDP", "govtax_GDP" = "Government Tax Revenue as % of GDP", - "govdef" = "Government Deficit", + "govdef" = "Consolidated government Deficit", "govdef_GDP" = "Government Deficit as % of GDP", - "govdebt" = "Government Debt", + "gen_govdef_GDP" = "General government Deficit as % of GDP", + "gen_govdef" = "General government Deficit", + "cgovdef_GDP" = "Central government Deficit as % of GDP", + "cgovdef" = "Central government Deficit", + "govdebt" = "Consolidated government Debt", "govdebt_GDP" = "Government Debt as % of GDP", + "gen_govdebt_GDP" = "General government Debt as % of GDP", + "gen_govdebt" = "General government Debt", + "cgovdebt_GDP" = "Central government Debt as % of GDP", + "cgovdebt" = "Central government Debt", "HPI" = "House Price Index", "CPI" = "Consumer Price Index, 2010 = 100", "infl" = "Inflation Rate", @@ -109,7 +134,8 @@ gmd <- function(variables = NULL, country = NULL, version = NULL, "M4" = "M4 Money Supply", "SovDebtCrisis" = "Sovereign Debt Crisis", "CurrencyCrisis" = "Currency Crisis", - "BankingCrisis" = "Banking Crisis" + "BankingCrisis" = "Banking Crisis", + "CA_USD" = "" ) df <- data.frame(