# \donttest{
R <- optimized_SHUM(rep(1, 12), colnames(AL), AL, parallel = FALSE)
estimate_SHUM(R, colnames(AL), AL)
# This run will take about 10 mins on average based on computational capacity of the system
# Optimum value of HUM estimate noticed for this case : 0.8440681
# }
R <- optimized_EHUM(rep(1, 12), colnames(AL), AL, parallel = FALSE)
estimate_EHUM(R, colnames(AL), AL)
# Optimum value of HUM estimate noticed for this case : 0.8403805
R <- optimized_ULBA(rep(1, 12), colnames(AL), AL, parallel = FALSE)
estimate_ULBA(R, colnames(AL), AL)
# Optimum value of HUM estimate noticed for this case : 0.9201903
Run the code above in your browser using DataLab