EconGeo (version 2.0)

locational_gini_curve: Plot a locational Gini curve from regions - industries matrices

Description

This function plots a locational Gini curve following Krugman from regions - industries matrices.

Usage

locational_gini_curve(mat, pdf = FALSE, pdf_location = NULL)

Value

No return value, produces a plot or pdf.

Arguments

mat

An incidence matrix with regions in rows and industries in columns. The input can also be a vector of industrial regional count (a matrix with n regions in rows and a single column).

pdf

Logical; shall a pdf be saved? Defaults to FALSE. If set to TRUE, a pdf with all will be compiled and saved to R's temp dir if no 'pdf_location' is specified.

pdf_location

Output location of pdf file

Author

Pierre-Alexandre Balland

References

Krugman P. (1991) Geography and Trade, MIT Press, Cambridge (chapter 2 - p.56)

See Also

hoover_gini, locational_gini, hoover_curve, lorenz_curve, gini

Examples

## generate a region - industry matrix
mat <- matrix(
  c(
    100, 0, 0, 0, 0,
    0, 15, 5, 70, 10,
    0, 20, 10, 20, 50,
    0, 25, 30, 5, 40,
    0, 40, 55, 5, 0
  ),
  ncol = 5, byrow = TRUE
)
rownames(mat) <- c("R1", "R2", "R3", "R4", "R5")
colnames(mat) <- c("I1", "I2", "I3", "I4", "I5")

## run the function (shows industry #5)
locational_gini_curve(mat, pdf = FALSE)
locational_gini_curve(mat, pdf = FALSE)

## Save output as pdf
locational_gini_curve(mat, pdf = TRUE)

## To specify an output directory for the pdf,
## specify 'pdf_location', for instance as '/Users/jones/locational_gini_curve.pdf'
## locational_gini_curve(mat, pdf = TRUE, pdf_location = '/Users/jones/locational_gini_curve.pdf')