data(Grunfeld, package="plm")
## test on heterogeneous model (separate time series regressions)
pcdtest(inv ~ value + capital, data=Grunfeld,
index = c("firm","year"))
## test on twoways fixed effects homogeneous model
pcdtest(inv ~ value + capital, data=Grunfeld, model="within",
effect="twoways", , index = c("firm","year"))
## test on model object
g <- plm(inv ~ value + capital, data=Grunfeld, index = c("firm","year"))
pcdtest(g)
## scaled LM test
pcdtest(g,test="sclm")
Run the code above in your browser using DataLab