# NOT RUN {
# Unimodal distribution
x <- rweibull(100, shape = 12, scale = 0.8)
## True mode
weibullMode(shape = 12, scale = 0.8)
## Estimate of the mode
mlv(x, method = "meanshift", par = mean(x))
# }
Run the code above in your browser using DataLab