# NOT RUN {
# Unimodal distribution
x <- rlnorm(10000, meanlog = 3.4, sdlog = 0.2)
## True mode
lnormMode(meanlog = 3.4, sdlog = 0.2)
## Estimate of the mode
mlv(x, method = "vieu", kernel = "gaussian")
# }
Run the code above in your browser using DataLab