# NOT RUN {
#
# Let's generate a bi-modal artificial set of data.
#
x <- c( rnorm(100), rnorm(100, 10))
#
# Now perform simple wavelet density estimate
#
wde <- CWavDE(x, Jmax=10, threshold=1)
#
# Plot results
#
# }
# NOT RUN {
plot(wde$x, wde$y, type="l")
# }
Run the code above in your browser using DataLab