data("Grunfeld", package = "plm")
g <- plm(inv ~ value + capital, data = Grunfeld, model = "pooling")
plmtest(g)
plmtest(g, effect = "time")
plmtest(inv ~ value + capital, data = Grunfeld, type = "honda")
plmtest(inv ~ value + capital, data = Grunfeld, type = "ghm", effect="twoways")
plmtest(inv ~ value + capital, data = Grunfeld, type = "kw", effect="twoways")
Run the code above in your browser using DataLab