# NOT RUN {
sim<-propest.wav(proportion = P2, binsize=1,length = 256, times = 1000, meth = "u",
van = 6, fam = "DaubLeAsymm", min.level = 4)
plot(sim$x,sim$y,type="l",xlab="",ylab="Binomial mean function")
##^^ shows original proportion to estimate.
lines(sim$x,sim$meanfhat,col=2)
lines(sim$x,sim$meanfhata,col=3)
##^^shows the estimates of the proportion from the two transforms.
# }
Run the code above in your browser using DataLab