data("Gasoline",package="Ecdat")
form <- lgaspcar~lincomep+lrpmg+lcarpcap
wi <- plm(form, data=Gasoline, model="within")
re <- plm(form, data=Gasoline, model="random")
phtest(wi, re)
phtest(form, data=Gasoline)
Run the code above in your browser using DataLab