# NOT RUN {
#### Example 8-5
## ------------------------------------------------------------------------
# }
# NOT RUN {
data("Donors", package = "pder")
library("plm")
T3.1 <- plm(donation ~ treatment + prcontr, Donors, index = "id")
T3.2 <- plm(donation ~ treatment * prcontr - prcontr, Donors, index = "id")
T5.A <- pldv(donation ~ treatment + prcontr, Donors, index = "id",
model = "random", method = "bfgs")
T5.B <- pldv(donation ~ treatment * prcontr - prcontr, Donors, index = "id",
model = "random", method = "bfgs")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab