\Header{galaxies}{Velocities for 82 Galaxies}
\keyword{datasets}{galaxies}
\begin{Description}\relax
A numeric vector of velocities in km/sec of 82 galaxies from 6
well-separated conic sections of an \code{unfilled} survey of the Corona
Borealis region.  Multimodality in such surveys is evidence for voids
and superclusters in the far universe.
\end{Description}
\begin{Usage}
\begin{verbatim}
data(galaxies)
\end{verbatim}
\end{Usage}
\begin{Note}\relax
There is an 83rd measurement of 5607 km/sec in the Postman
\emph{et al.} paper which is omitted in Roeder (1990) and from the
dataset here.
\end{Note}
\begin{Source}\relax
Roeder, K. (1990) Density estimation with confidence sets exemplified
by superclusters and voids in galaxies.
\emph{Journal of the American Statistical Association}
\bold{85}, 617--624.

Postman, M., Huchra, J. P. and Geller, M. J. (1986)
Probes of large-scale structures in the Corona Borealis region.
\emph{Astrophysical Journal}
\bold{92}, 1238--1247.
\end{Source}
\begin{References}\relax
Venables, W. N. and Ripley, B. D. (2002)
\emph{Modern Applied Statistics with S.} Fourth edition.  Springer.
\end{References}
\begin{Examples}
\begin{ExampleCode}
data(galaxies)
gal <- galaxies/1000
c(width.SJ(gal, method = "dpi"), width.SJ(gal))
plot(x = c(0, 40), y = c(0, 0.3), type = "n", bty = "l",
     xlab = "velocity of galaxy (1000km/s)", ylab = "density")
rug(gal)
lines(density(gal, width = 3.25, n = 200), lty = 1)
lines(density(gal, width = 2.56, n = 200), lty = 3)
\end{ExampleCode}
\end{Examples}

