Estimasi Maximum Likelihood untuk Distribusi Eksponensial

Fungsi ini menghitung *Maximum Likelihood Estimator* (MLE) untuk parameter *rate* (\(\lambda\)) dari distribusi Eksponensial berdasarkan sebuah vektor numerik.

mle_exp(x, na.rm = TRUE)

Arguments

x

Sebuah vektor numerik berisi data observasi. Nilai harus non-negatif.

na.rm

Sebuah nilai logis yang menunjukkan apakah nilai `NA` harus dihilangkan sebelum perhitungan. Standarnya adalah `TRUE`.

Value

Sebuah vektor numerik dengan nama yang berisi satu elemen:

• `lambda_hat`: Estimasi parameter *rate* (\(\hat{\lambda}\)).

Details

Formula yang digunakan adalah estimator MLE untuk parameter rate: \(\hat{\lambda} = \frac{1}{\bar{x}} = \frac{n}{\sum_{i=1}^{n}x_i}\)

Examples

# Bangkitkan data sampel dari distribusi Eksponensial
set.seed(456)
data_exp <- rexp(100, rate = 2)

# Hitung MLE
mle_exp(data_exp)
#> lambda_hat 
#>   2.379955 

# Contoh dengan data yang mengandung nilai NA dan nol
data_with_na_and_zero <- c(data_exp, NA, 0)
mle_exp(data_with_na_and_zero, na.rm = TRUE)
#> lambda_hat 
#>   2.403754