start_exponential = list(
density = stats::dexp,
estimator = function(data) {
c(rate = 1/mean(data))
},
support = c(0, Inf)
)
start_inverse_gaussian = list(
density = extraDistr::dwald,
estimator = function(data) {
c(mu = mean(data),
lambda = mean(1/data - 1/mean(data)))
},
support = c(0, Inf)
)
Run the code above in your browser using DataLab