# NOT RUN {
set.seed(8)
groupE<-rnbinom.inar1(n=1000, size=0.6, mu=2, rho=0.8, tp=6)
groupC<-rnbinom.inar1(n=1000, size=0.6, mu=2, rho=0.8, tp=6)
test.nb.inar1(dataC=groupC, dataE=groupE, h0=1)
# }
Run the code above in your browser using DataCamp Workspace