data("Gasoline", package="Ecdat")
form <- lgaspcar~lincomep+lrpmg+lcarpcap
gasw <- plm(form, data=Gasoline, model="within")
gasp <- plm(form, data=Gasoline, model="pooling")
gasnp <- pvcm(form, data=Gasoline, model="within")
pooltest(gasw, gasnp)
pooltest(gasp, gasnp)
pooltest(form, data=Gasoline, effect="individual", model="within")
pooltest(form, data=Gasoline, effect="individual", model="pooling")
Run the code above in your browser using DataLab