Add links for ZIPoisson

R/estimate_zipoisson.R

@@ -2,6 +2,7 @@
 # https://en.wikipedia.org/wiki/Zero-inflated_model#Estimators_of_ZIP_parameters
 # https://math.stackexchange.com/questions/2761563/maximum-likelihood-estimation-for-zero-inflated-poisson-distribution
 # https://ieeexplore.ieee.org/document/9032203
+# todo document these functions
 estimate_zi_poisson <- function(data) {
   num.zeros <- sum(data == 0)
   r0 <- 1 / length(data) * num.zeros