I'm trying to estimate distribution parameters with Maximum Likelihood Estimator (MLE) and Jackknife estimator based on it. The estimation statistic is mean. Jackknife estimator is considered to be better than MLE, but somehow I get the same numbers. What am I doing wrong? I'm using the following R code:
# Function to return sample mean as estimator
MME_estimate_lambda <- function(vec){
return(mean(vec))
}
# Function to perform Jackknife estimation
Jacknife_estimate_lambda <- function(vec){
n <- length(vec)
estimators <- sapply(seq(n),function(i) MME_estimate_lambda(vec[-i]))
return(n*MME_estimate_lambda(vec) - (n-1)*sum(estimators)/n)
}
set.seed(123)
mysample <- rexp(50,1) # sample from Exponential distribution
MME_estimate_lambda(mysample)
Jacknife_estimate_lambda(mysample) # Both estimators are the same