library(Ecdat)
data(Gasoline)
Gasoline <- pdata.frame(Gasoline,"country","year")
form <- lgaspcar~lincomep+lrpmg+lcarpcap
gas <- plm(form,data=Gasoline)
gasnp <- pvcm(form,data=Gasoline,model="within")
pooltest(gas,gasnp)
pooltest(gas,gasnp,effect=TRUE)
Run the code above in your browser using DataLab