In ErikOSorensen/pppindexr: Price and Quantity Indices for International Comparisons

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

pppindexr

Price and Quantity Indices for International Comparisons: The EKS, CCD, and the Geary-Khamis real income indices.

Basic functionality tests are implemented, with some reasonable unit tests.

Installation

You can install the development version of pppindexr from GitHub with:

# install.packages("devtools")
devtools::install_github("ErikOSorensen/pppindexr")

Example

Let us look at a 3x2 example (three countries of unequal size, two goods) and define some arbitrary prices and quantities (one row per country):

library(pppindexr)
ex1 <- data.frame(
  population = c(1, 2, 3),
  p1 = c(1, 2, 1),
  p2 = c(1, 1, 3),
  q1 = c(1, 1, 1),
  q2 = c(3, 1, 2)
)
# CCD, EKS,  and Gheary Khamis indices:
ex1$eks = eks(ex1[, 2:3], ex1[, 4:5])
ex1$ccd = ccd(ex1[, 2:3], ex1[, 4:5])
ex1$gk  = ygk(ex1[, 2:3], ex1[, 4:5], 
              pop = ex1$population, min_scale=TRUE)
ex1 |> knitr::kable(digits=3)

The quantity indices are scaled with respect to the "country" with the lowest real income.

ErikOSorensen/pppindexr documentation built on Jan. 7, 2023, 4:11 p.m.