set.seed(1)
data1 <- rbzinb(n = 20, a0 = 1, a1 = 1, a2 = 1,
b1 = 1, b2 = 1, p1 = 0.5, p2 = 0.2,
p3 = 0.2, p4 = 0.1)
bzinb.se(xvec = data1[,1], yvec = data1[,2],
param = c(5.5, 0.017, 0.017, 0.33, 0.36,
0.53, 0.30, 0.08, 0.09))
Run the code above in your browser using DataLab