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