## as these examples take a bit of time, do not run them automatically
if (FALSE) {
data("Donors", package = "pder")
library("plm")
pDonors <- pdata.frame(Donors, index = "id")
# replicate Landry/Lange/List/Price/Rupp (2010), online appendix, table 5a, models A and B
modA <- pldv(donation ~ treatment + prcontr, data = pDonors,
model = "random", method = "bfgs")
summary(modA)
modB <- pldv(donation ~ treatment * prcontr - prcontr, data = pDonors,
model = "random", method = "bfgs")
summary(modB)
}
Run the code above in your browser using DataLab