library(Ecdat)
data(Grunfeld)
Grunfeld <-pdata.frame(Grunfeld,firm,year)
gi <- plm(inv ~ value + capital, data=Grunfeld)
gt <- plm(inv ~ value + capital, data=Grunfeld,method="temp")
gd <- plm(inv ~ value + capital, data=Grunfeld,methid="double")
pFtest(gi)
pFtest(gi$within,gi$pooling)
pFtest(gt)
pFtest(gd)
Run the code above in your browser using DataLab