R/MetaVariables.R

In SebastianBehrens/SolowVariants: Provide framework to simulate macroeconomic Solow growth models

base_variables <- c(
    "Output",
    "Consumption",
    "Capital Stock",
    "Labor Stock",
    "Output per Worker",
    "Consumption per Worker",
    "Capital Stock per Worker",
    "Output per Effective Worker",
    "Consumption per Effective Worker",
    "Capital Stock per Effective Worker",
    
    "Capital to Output Ratio",
    
    "Log of Capital Stock",
    "Log of Capital Stock per Worker",
    "Log of Capital Stock per Effective Worker",
    
    "Log of Output",
    "Log of Output per Worker",
    "Log of Output per Effective Worker",
    
    "Growth Rate of Output",
    "Growth Rate of Output per Worker",
    "Growth Rate of Output per Effective Worker",
    
    "Growth Rate of Capital Stock",
    "Growth Rate of Capital Stock per Worker",
    "Growth Rate of Capital Stock per Effective Worker"
)

add_vars_BS <- c("Wage Rate", "Rental Rate")
add_vars_GS <- c("Total Factor Productivity", "Growth Rate of Total Factor Productivity", "Wage Rate", "Rental Rate")
add_vars_ESSOE <- c(
  "National Output", 
  "National Output per Worker", 
  "National Wealth", 
  "National Wealth per Worker", 
  "National Wealth per Effective Worker", 
  "Net Foreign Assets", 
  "Net Foreign Assets per Worker", 
  "National Savings",
  "Wage Rate",
  "Rental Rate"
 )
add_vars_ESHC <- c(
  "Total Factor Productivity",
  "Growth Rate of Total Factor Productivity",
  "Human Capital Stock",
  "Physical Capital Stock",
  "Human Capital Stock per Worker",
  "Human Capital Stock per Effective Worker",
  "Physical Capital to Output Ratio",               
  "Human Capital to Output Ratio",
  "Log of Human Capital Stock",
  "Log of Human Capital Stock per Worker",
  "Log of Human Capital Stock per Effective Worker",
  "Growth Rate of Human Capital Stock",
  "Growth Rate of Human Capital Stock per Worker" ,
  "Growth Rate of Human Capital Stock per Effective Worker",
  "Wage Rate",
  "Rental Rate"
)
add_vars_ESSRO <- c(
  "Energy Use",
  "Resource Stock",
  "Total Factor Productivity",
  "Growth Rate of Total Factor Productivity",
  "Capital to Output Ratio"
)
add_vars_ESSRL <- c(
  "Total Factor Productivity",
  "Growth Rate of Total Factor Productivity",
  "Capital Rental Rate",
  "Land Rental Rate"
)
add_vars_ESSROL <- add_vars_ESSRO
add_vars_ESEG <- c("Total Factor Productivity", "Growth Rate of Total Factor Productivity", "Wage Rate", "Rental Rate")
add_vars_ESEGRomer <- c("Total Factor Productivity", "Growth Rate of Total Factor Productivity")
add_vars_ESEGCozziOne <- add_vars_ESEGRomer
add_vars_ESEGCozziTwo <- add_vars_ESEGCozziOne