R/calcRiskPremium.R

Defines functions calcRiskPremium

calcRiskPremium <- function() {
  # Read risk class data from OECD
  x <- readSource("OECD")

  # Convert into percent
  x <- x / 100

  # Delete dimensions that are same and not in the GAMS-code
  getNames(x) <- NULL
  getYears(x) <- NULL

  # Use GDP as weight
  w <- calcOutput("GDP", aggregate = FALSE)[, 2005, "gdp_SSP2"]

  list(x           = x,
       weight      = w,
       unit        = "Dimensionless",
       description = "Risk premium that lowers the use of capital imports")
}
pik-piam/mrremind documentation built on Sept. 18, 2024, 2:58 p.m.