data(ship)
library(pglm)
Eq1="accident ~ op_75_79+co_65_69+co_70_74+co_75_79"
FE.pois <- pglm(Eq1,data=ship,family = "poisson",model = "within",index = 'ship',R=10)
RE.pois <- pglm::pglm(Eq1,data=ship,family = "poisson", model = "random", index = 'ship')
## Hausman test
htest_pglm(RE=RE.pois, FE=FE.pois, re.method="pglm")
Eq2=accident ~ op_75_79+co_65_69+co_70_74+co_75_79 + (1 | ship)
re.glmmTMB=glmmTMB::glmmTMB(Eq2,data=ship, family="poisson")
## Hausman test
htest_pglm(RE=re.glmmTMB, FE=FE.pois, re.method="glmmTMB")
Run the code above in your browser using DataLab