library("countreg")
data("CrabSatellites", package = "countreg")
## default start values
fm1 <- hurdle(satellites ~ width + as.numeric(color), data = CrabSatellites,
dist = "negbin", zero = "negbin")
## user-supplied start values and other options
fm2 <- hurdle(satellites ~ width + as.numeric(color), data = CrabSatellites,
dist = "negbin",
zero = "negbin",
trace = TRUE,
separate = FALSE,
start = list(count = c(0.5, 0, 0),
zero = c(-10, 0.5, -0.5),
theta = c(count = 1, zero = 1)))Hurdle Count Model
count model: negbin with log link
zero hurdle model: negbin with log link
dependent variable:
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
62 16 9 19 19 15 13 4 6 3 3 1 1 0 1 1
calling optim() for joint count and zero hurlde estimation:
initial value 408.872181
iter 10 value 350.643112
final value 350.367259
converged
done