ppml: Poisson Pseudo Maximum Likelihood (PPML)

View source: R/ppml.R

ppmlR Documentation

Poisson Pseudo Maximum Likelihood (PPML)

Description

ppml estimates gravity models in their multiplicative form via Poisson Pseudo Maximum Likelihood.

Usage

ppml(
  dependent_variable,
  distance,
  additional_regressors,
  robust = FALSE,
  data,
  ...
)

Arguments

dependent_variable

(Type: character) name of the dependent variable. This variable is used as the dependent variable in the estimation.

distance

(Type: character) name of the distance variable that should be taken as the key independent variable in the estimation. The distance is logged automatically when the function is executed.

additional_regressors

(Type: character) names of the additional regressors to include in the model (e.g. a dummy variable to indicate contiguity). Unilateral metric variables such as GDPs can be added but those variables have to be logged first. Interaction terms can be added.

Write this argument as c(contiguity, common currency, ...). By default this is set to NULL.

robust

(Type: logical) whether robust fitting should be used. By default this is set to FALSE.

data

(Type: data.frame) the dataset to be used.

...

Additional arguments to be passed to the function.

Details

ppml is an estimation method for gravity models belonging to generalized linear models. It is estimated via glm using the quasipoisson distribution and a log-link. ppml is presented in \insertCiteSantos2006;textualgravity.

For similar functions, utilizing the multiplicative form via the log-link, but different distributions, see gpml, nls, and nbpml.

ppml estimation can be used for both, cross-sectional as well as panel data. The function is designed to be consistent with the results from the Stata function ppml written by \insertCiteSantos2006;textualgravity.

The function ols was therefore tested for cross-sectional data. For the use with panel data no tests were performed. Therefore, it is up to the user to ensure that the functions can be applied to panel data.

Depending on the panel dataset and the variables - specifically the type of fixed effects - included in the model, it may easily occur that the model is not computable. Also, note that by including bilateral fixed effects such as country-pair effects, the coefficients of time-invariant observables such as distance can no longer be estimated.

Depending on the specific model, the code of the respective function may has to be changed in order to exclude the distance variable from the estimation.

At the very least, the user should take special care with respect to the meaning of the estimated coefficients and variances as well as the decision about which effects to include in the estimation. When using panel data, the parameter and variance estimation of the models may have to be changed accordingly.

For a comprehensive overview of gravity models for panel data see \insertCiteEgger2003;textualgravity, \insertCiteGomez-Herrera2013;textualgravity and \insertCiteHead2010;textualgravity as well as the references therein.

Value

The function returns the summary of the estimated gravity model as an glm-object.

References

For more information on gravity models, theoretical foundations and estimation methods in general see

\insertRef

Anderson1979gravity

\insertRef

Anderson2001gravity

\insertRef

Anderson2010gravity

\insertRef

Baier2009gravity

\insertRef

Baier2010gravity

\insertRef

Feenstra2002gravity

\insertRef

Head2010gravity

\insertRef

Head2014gravity

\insertRef

Santos2006gravity

and the citations therein.

See Gravity Equations: Workhorse, Toolkit, and Cookbook for gravity datasets and Stata code for estimating gravity models.

For estimating gravity equations using panel data see

\insertRef

Egger2003gravity

\insertRef

Gomez-Herrera2013gravity

and the references therein.

See Also

glm, coeftest, vcovHC

Examples

# Example for CRAN checks:
# Executable in < 5 sec
library(dplyr)
data("gravity_no_zeros")

# Choose 5 countries for testing
countries_chosen <- c("AUS", "CHN", "GBR", "BRA", "CAN")
grav_small <- filter(gravity_no_zeros, iso_o %in% countries_chosen)

fit <- ppml(
  dependent_variable = "flow",
  distance = "distw",
  additional_regressors = c("rta", "iso_o", "iso_d"),
  data = grav_small
)

gravity documentation built on May 2, 2023, 9:13 a.m.