data("Grunfeld", package="Ecdat")
gi <- plm(inv ~ value + capital, data=Grunfeld, model="pooling")
gt <- plm(inv ~ value + capital, data=Grunfeld, effect="time",model="within")
gd <- plm(inv ~ value + capital, data=Grunfeld, effect="twoways", model="within")
pFtest(gt,gi)
pFtest(gd,gi)
pFtest(inv~value+capital, data=Grunfeld, effect="twoways")
Run the code above in your browser using DataLab