R/composite_conversions.R

In GDPuc: Easily Convert GDP Data

#------------------------------------------------------------
#------------------------------------------------------------
#------------------------------------------------------------
# Unit_in = current_LCU

# Convert from current LCU to constant Int$PPP base y
current_LCU_2_constant_IntPPP_base_y <- function(gdp, base_y, source) {
  gdp %>%
    current_LCU_2_constant_LCU_base_y(base_y, source) %>e%
    constant_LCU_2_constant_IntPPP(base_y, source)
}

# Convert from current LCU to constant US$MER base y
current_LCU_2_constant_USMER_base_y <- function(gdp, base_y, source) {
  gdp %>%
    current_LCU_2_constant_LCU_base_y(base_y, source) %>e%
    constant_LCU_2_constant_USMER(base = base_y, source)
}

# Convert from current LCU to constant € base y
current_LCU_2_constant_EURO_base_y <- function(gdp, base_y, source) {
  gdp %>%
    current_LCU_2_constant_USMER_base_y(base_y, source) %>e%
    constant_USMER_2_constant_EURO(base = base_y, source)
}

#------------------------------------------------------------
#------------------------------------------------------------
#------------------------------------------------------------
# Unit_in = current_IntPPP

# Convert from current Int$PPP to current US$MER
current_IntPPP_2_current_USMER <- function(gdp, source) {
  gdp %>%
    current_IntPPP_2_current_LCU(source) %>e%
    current_LCU_2_current_USMER(source)
}

# Convert from current Int$PPP to constant LCU base y
current_IntPPP_2_constant_LCU_base_y <- function(gdp, base_y, source) {
  gdp %>%
    current_IntPPP_2_current_LCU(source) %>e%
    current_LCU_2_constant_LCU_base_y(base_y, source)
}

# Convert from current Int$PPP to constant Int$PPP base y
current_IntPPP_2_constant_IntPPP_base_y <- function(gdp, base_y, source) {
  gdp %>%
    current_IntPPP_2_constant_LCU_base_y(base_y, source) %>e%
    constant_LCU_2_constant_IntPPP(base = base_y, source)
}

# Convert from current Int$PPP to constant US$MER base y
current_IntPPP_2_constant_USMER_base_y <- function(gdp, base_y, source) {
  gdp %>%
    current_IntPPP_2_constant_LCU_base_y(base_y, source) %>e%
    constant_LCU_2_constant_USMER(base = base_y, source)
}

#------------------------------------------------------------
#------------------------------------------------------------
#------------------------------------------------------------
# Unit_in = current_USMER

# Convert from current US$MER to current Int$PPP
current_USMER_2_current_IntPPP <- function(gdp, source) {
  gdp %>%
    current_USMER_2_current_LCU(source) %>e%
    current_LCU_2_current_IntPPP(source)
}

# Convert from current US$MER to constant LCU base y
current_USMER_2_constant_LCU_base_y <- function(gdp, base_y, source) {
  gdp %>%
    current_USMER_2_current_LCU(source) %>e%
    current_LCU_2_constant_LCU_base_y(base_y, source)
}

# Convert from current US$MER to constant US$MER base y
current_USMER_2_constant_USMER_base_y <- function(gdp, base_y, source) {
  gdp %>%
    current_USMER_2_constant_LCU_base_y(base_y, source) %>e%
    constant_LCU_2_constant_USMER(base = base_y, source)
}

# Convert from current US$MER to constant Int$PPP base y
current_USMER_2_constant_IntPPP_base_y <- function(gdp, base_y, source) {
  gdp %>%
    current_USMER_2_constant_LCU_base_y(base_y, source) %>e%
    constant_LCU_2_constant_IntPPP(base = base_y, source)
}

# Convert from current US$MER to constant € base y
current_USMER_2_constant_EURO_base_y <- function(gdp, base_y, source) {
  gdp %>%
    current_USMER_2_constant_USMER_base_y(base_y, source) %>e%
    constant_USMER_2_constant_EURO(base = base_y, source)
}

#------------------------------------------------------------
#------------------------------------------------------------
#------------------------------------------------------------
# Unit_in = constant_LCU

# Convert from constant LCU base x to current Int$PPP
constant_LCU_base_x_2_current_IntPPP <- function(gdp, base_x, source) {
  gdp %>%
    constant_LCU_base_x_2_current_LCU(base_x, source) %>e%
    current_LCU_2_current_IntPPP(source)
}

# Convert from constant LCU base x to current Int$PPP
constant_LCU_base_x_2_current_USMER <- function(gdp, base_x, source) {
  gdp %>%
    constant_LCU_base_x_2_current_LCU(base_x, source) %>e%
    current_LCU_2_current_USMER(source)
}

# Convert from constant LCU in one base year to constant Int$PPP of another
constant_LCU_base_x_2_constant_IntPPP_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_LCU_base_x_2_constant_LCU_base_y(base_x, base_y, source) %>e%
    constant_LCU_2_constant_IntPPP(base = base_y, source)
}


# Convert from constant LCU in one base year to constant US$MER of another
constant_LCU_base_x_2_constant_USMER_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_LCU_base_x_2_constant_LCU_base_y(base_x, base_y, source) %>e%
    constant_LCU_2_constant_USMER(base = base_y, source)
}

# Convert from constant LCU in one base year to constant € of another
constant_LCU_base_x_2_constant_EURO_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_LCU_base_x_2_constant_USMER_base_y(base_x, base_y, source) %>e%
    constant_USMER_2_constant_EURO(base = base_y, source)
}

#------------------------------------------------------------
#------------------------------------------------------------
#------------------------------------------------------------
# Unit_in = constant_IntPPP

# Convert from constant Int$PPP base year x to current LCU
constant_IntPPP_base_x_2_current_LCU <- function(gdp, base_x, source) {
  gdp %>%
    constant_IntPPP_2_constant_LCU(base = base_x, source) %>e%
    constant_LCU_base_x_2_current_LCU(base_x, source)
}

# Convert from constant Int$PPP base year x to current US$MER
constant_IntPPP_base_x_2_current_USMER <- function(gdp, base_x, source) {
  gdp %>%
    constant_IntPPP_base_x_2_current_LCU(base_x, source) %>e%
    current_LCU_2_current_USMER(source)
}

# Convert from constant Int$PPP base year x to current Int$PPP
constant_IntPPP_base_x_2_current_IntPPP <- function(gdp, base_x, source) {
  gdp %>%
    constant_IntPPP_base_x_2_current_LCU(base_x, source) %>e%
    current_LCU_2_current_IntPPP(source)
}

# Convert from constant Int$PPP in one base year to constant LCU of another
constant_IntPPP_base_x_2_constant_LCU_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_IntPPP_2_constant_LCU(base = base_x, source) %>e%
    constant_LCU_base_x_2_constant_LCU_base_y(base_x, base_y, source)
}

# Convert constant Int$PPP series from one base year to another
constant_IntPPP_base_x_2_constant_IntPPP_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_IntPPP_base_x_2_constant_LCU_base_y(base_x, base_y, source) %>e%
    constant_LCU_2_constant_IntPPP(base = base_y, source)
}

# Convert from constant Int$PPP in one base year to constant US$MER of another
constant_IntPPP_base_x_2_constant_USMER_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_IntPPP_base_x_2_constant_LCU_base_y(base_x, base_y, source) %>e%
    constant_LCU_2_constant_USMER(base = base_y, source)
}

# Convert from constant Int$PPP in one base year to constant € of another
constant_IntPPP_base_x_2_constant_EURO_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_IntPPP_base_x_2_constant_USMER_base_y(base_x, base_y, source) %>e%
    constant_USMER_2_constant_EURO(base = base_y, source)
}

#------------------------------------------------------------
#------------------------------------------------------------
#------------------------------------------------------------
# Unit_in = constant US$MER

# Convert from constant US$MER base year x to current LCU
constant_USMER_base_x_2_current_LCU <- function(gdp, base_x, source) {
  gdp %>%
    constant_USMER_2_constant_LCU(base = base_x, source) %>e%
    constant_LCU_base_x_2_current_LCU(base_x, source)
}

# Convert from constant US$MER base year x to current Int$PPP
constant_USMER_base_x_2_current_IntPPP <- function(gdp, base_x, source) {
  gdp %>%
    constant_USMER_base_x_2_current_LCU(base_x, source) %>e%
    current_LCU_2_current_IntPPP(source)
}

# Convert from constant US$MER base year x to current US$MER
constant_USMER_base_x_2_current_USMER <- function(gdp, base_x, source) {
  gdp %>%
    constant_USMER_base_x_2_current_LCU(base_x, source) %>e%
    current_LCU_2_current_USMER(source)
}

# Convert from constant US$MER in one base year to constant LCU of another
constant_USMER_base_x_2_constant_LCU_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_USMER_2_constant_LCU(base = base_x, source) %>e%
    constant_LCU_base_x_2_constant_LCU_base_y(base_x, base_y, source)
}

# Convert constant US$MER series from one base year to another
constant_USMER_base_x_2_constant_USMER_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_USMER_base_x_2_constant_LCU_base_y(base_x, base_y, source) %>e%
    constant_LCU_2_constant_USMER(base = base_y, source)
}

# Convert from constant US$MER in one base year to constant Int$PPP of another
constant_USMER_base_x_2_constant_IntPPP_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_USMER_base_x_2_constant_LCU_base_y(base_x, base_y, source) %>e%
    constant_LCU_2_constant_IntPPP(base = base_y, source)
}

# Convert from constant US$MER in one base year to constant € of another
constant_USMER_base_x_2_constant_EURO_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_USMER_base_x_2_constant_USMER_base_y(base_x, base_y, source) %>e%
    constant_USMER_2_constant_EURO(base = base_y, source)
}

#------------------------------------------------------------
#------------------------------------------------------------
#------------------------------------------------------------
# Unit_in = constant €

# Convert from constant € base year x to current LCU
constant_EURO_base_x_2_current_LCU <- function(gdp, base_x, source) {
  gdp %>%
    constant_EURO_2_constant_USMER(base = base_x, source) %>e%
    constant_USMER_base_x_2_current_LCU(base_x, source)
}

# Convert from constant € base year x to current Int$PPP
constant_EURO_base_x_2_current_IntPPP <- function(gdp, base_x, source) {
  gdp %>%
    constant_EURO_2_constant_USMER(base = base_x, source) %>e%
    constant_USMER_base_x_2_current_IntPPP(base_x, source)
}

# Convert from constant € base year x to current US$MER
constant_EURO_base_x_2_current_USMER <- function(gdp, base_x, source) {
  gdp %>%
    constant_EURO_2_constant_USMER(base = base_x, source) %>e%
    constant_USMER_base_x_2_current_USMER(base_x, source)
}

# Convert constant € series from one base year to another
constant_EURO_base_x_2_constant_USMER_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_EURO_2_constant_USMER(base = base_x, source) %>e%
    constant_USMER_base_x_2_constant_USMER_base_y(base_x, base_y, source)
}

# Convert from constant € in one base year to constant LCU of another
constant_EURO_base_x_2_constant_LCU_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_EURO_2_constant_USMER(base = base_x, source) %>e%
    constant_USMER_base_x_2_constant_LCU_base_y(base_x, base_y, source)
}

# Convert from constant € in one base year to constant Int$PPP of another
constant_EURO_base_x_2_constant_IntPPP_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_EURO_2_constant_USMER(base = base_x, source) %>e%
    constant_USMER_base_x_2_constant_IntPPP_base_y(base_x, base_y, source)
}

# Convert from constant € in one base year to constant € of another
constant_EURO_base_x_2_constant_EURO_base_y <- function(gdp, base_x, base_y, source) {
  gdp %>%
    constant_EURO_2_constant_USMER(base = base_x, source) %>e%
    constant_USMER_base_x_2_constant_EURO_base_y(base_x, base_y, source)
}