### R code from vignette source 'AER.Rnw'

###################################################
### code chunk number 1: options
###################################################
options(prompt = "R> ", digits = 4, show.signif.stars = FALSE)


###################################################
### code chunk number 2: demo (eval = FALSE)
###################################################
## demo("Ch-Intro", package = "AER")


###################################################
### code chunk number 3: data (eval = FALSE)
###################################################
## data(package = "AER")


###################################################
### code chunk number 4: help (eval = FALSE)
###################################################
## help("Greene2003", package = "AER")


###################################################
### code chunk number 5: pgmm-new (eval = FALSE)
###################################################
## empl_ab <- pgmm(log(emp) ~ lag(log(emp), 1:2) + lag(log(wage), 0:1)
##      + log(capital) + lag(log(output), 0:1) | lag(log(emp), 2:99),
##      data = EmplUK, index = c("firm", "year"), 
##      effect = "twoways", model = "twosteps")