# NOT RUN {
#### Example 2-5
## ------------------------------------------------------------------------
data("TurkishBanks", package = "pder")
library("plm")
TurkishBanks <- na.omit(TurkishBanks)
TB <- pdata.frame(TurkishBanks)
summary(log(TB$output))
ercomp(log(cost) ~ log(output), TB)
models <- c("within", "random", "pooling", "between")
sapply(models, function(x)
coef(plm(log(cost) ~ log(output), TB, model = x))["log(output)"])
# }
Run the code above in your browser using DataCamp Workspace