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