[R] How to use density function to find h_{k}

[Patrick Wang]

 Hi, All:

 How can I use the density function to find the minimum of the bandwidth
 make the density function one mode, 2 mode, 3 mode etc. usually the
larger the bandwidth, the fewer mode of the density. less bumpy.

It will be impossible to try all possible bandwidths to then plot the pdf
to see how many modes it has. Is there an automatic way to do this Like
for loop 1000, try bandwidth from (0, 1). is there a function to get
how many modes from the density function? the Mode function in R doesnot
seem to serve this purpose.


 Thanks
 pat