\HeaderA{get.num.modes}{Number of modes of a gaussian kernel}{get.num.modes}
\keyword{distribution}{get.num.modes}
\begin{Description}\relax
get.num.modes returns the number of modes of the gaussian kernel estimate for a given data vector and bandwidth on the standardized scale
\end{Description}
\begin{Usage}
\begin{verbatim}
get.num.modes(x, h)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{x}] the data vector 
\item[\code{h}] the bandwidth for the standardized data vector 
\end{ldescription}
\end{Arguments}
\begin{Value}
\begin{ldescription}
\item[\code{x}] number of modes
\end{ldescription}
\end{Value}
\begin{Author}\relax
Kevin Rader
\end{Author}
\begin{References}\relax
B.W. Silverman (1981),Using Kernel Density Estimates to
Investigate Multimodatlity. J.R. Statist. Soc. B,43,1,97-99.
\end{References}
\begin{SeeAlso}\relax
\code{\LinkA{get.h}{get.h}}, \code{\LinkA{get.p}{get.p}}, \code{\LinkA{emp.f}{emp.f}}
\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}

 set.seed(12345)
 x<-rnorm(50)
 h<-get.h(x)
 num<-c(get.num.modes(x,h),get.num.modes(x,h-0.005))
 num
\end{ExampleCode}
\end{Examples}

