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