# NOT RUN {
data(logreturn2014)
## Computes and plots the log-concave density estimate
(r = cnmlcd(logreturn2014))
plot(r$lcd, logreturn2014) # Density
plot(r$lcd, logreturn2014, log=TRUE) # Log-density
plotgradient(r$lcd, logreturn2014) # Gradient
# }
Run the code above in your browser using DataLab