data("Grunfeld", package="plm")
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