# NOT RUN {
#### Example 8-4
## ------------------------------------------------------------------------
data("LateBudgets", package = "pder")
library("plm")
LateBudgets$dayslatepos <- pmax(LateBudgets$dayslate, 0)
LateBudgets$divgov <- with(LateBudgets,
factor(splitbranch == "yes" |
splitleg == "yes",
labels = c("no", "yes")))
LateBudgets$unemprise <- pmax(LateBudgets$unempdiff, 0)
LateBudgets$unempfall <- - pmin(LateBudgets$unempdiff, 0)
form <- dayslatepos ~ unemprise + unempfall + divgov + elecyear +
pop + fulltimeleg + shutdown + censusresp + endbalance + kids +
elderly + demgov + lameduck + newgov + govexp + nocarry +
supmaj + black + graduate
## ------------------------------------------------------------------------
FEtobit <- pldv(form, LateBudgets)
summary(FEtobit)
# }
Run the code above in your browser using DataCamp Workspace