error when `weights` is a vector for `ztnegbin`

[BERENZ]

This works well

m1 <- estimate_popsize(formula = TOTAL_SUB ~ .,
                            data = farmsubmission,
                            pop.var = "analytic",
                            model = "ztgeom",
                            method = "mle", 
                            weights = rep.int(1, nrow(farmsubmission)))

but if I replace ztgeom (or ztpoison) with ztnegbin I get an error

m2 <- estimate_popsize(formula = TOTAL_SUB ~ .,
                            data = farmsubmission,
                            pop.var = "analytic",
                            model = "ztnegbin",
                            method = "mle", 
                            weights = rep.int(1, nrow(farmsubmission)))

Error in hessian(coefficients) : 
dims [product 4] do not match the length of object [12036]

which is connected with using scalar weights in ztnegbin().

[Kertoo]

solved by #33