data <- fail_fiber
n <- length(data)
mme <- MME_WL(data)
modified_mme <- MMEm_WL(data)
mle <- MLE_WL(data, mme[2])
mlec <- MLEc_WL(data)
MME_var(mme[1],mme[2],n)
MMEm_var(modified_mme[1],modified_mme[2],n)
MLE_var(mle[1],mle[2],n)
MLEc_var(mlec[1],mlec[2],n)
Run the code above in your browser using DataLab