galaxies                package:MASS                R Documentation

_V_e_l_o_c_i_t_i_e_s _f_o_r _8_2 _G_a_l_a_x_i_e_s

_D_e_s_c_r_i_p_t_i_o_n:

     A numeric vector of velocities in km/sec of 82 galaxies from 6
     well-separated conic sections of an 'unfilled' survey of the
     Corona Borealis region.  Multimodality in such surveys is evidence
     for voids and superclusters in the far universe.

_U_s_a_g_e:

     data(galaxies)

_N_o_t_e:

     There is an 83rd measurement of 5607 km/sec in the Postman _et
     al._ paper which is omitted in Roeder (1990) and from the dataset
     here.

_S_o_u_r_c_e:

     Roeder, K. (1990) Density estimation with confidence sets
     exemplified by superclusters and voids in galaxies. _Journal of
     the American Statistical Association_ *85*, 617-624.

     Postman, M., Huchra, J. P. and Geller, M. J. (1986) Probes of
     large-scale structures in the Corona Borealis region.
     _Astrophysical Journal_ *92*, 1238-1247.

_R_e_f_e_r_e_n_c_e_s:

     Venables, W. N. and Ripley, B. D. (2002) _Modern Applied
     Statistics with S._ Fourth edition.  Springer.

_E_x_a_m_p_l_e_s:

     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)

