Fit a truncated exponential distribution to weighted observations

Fit a truncated exponential distribution to weighted observations

Usage

fit_truncated_exponential(value, weight)

Arguments

value

A numeric vector of observed values

weight

A numeric vector of weights

Value

A list with the fitted parameters alpha, ll, ul, lr, ur

Examples

# \donttest{
cod_data <- validate_ppmr_data(barnes_data, species = "Atlantic cod")
fit_truncated_exponential(cod_data$log_ppmr, cod_data$n_prey)
#> $alpha
#> [1] -0.3011413
#> 
#> $ll
#> [1] 2.897734
#> 
#> $ul
#> [1] 2.28755
#> 
#> $lr
#> [1] 15.22522
#> 
#> $ur
#> [1] 17.88541
#> 
# }