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