########
#
# Function that repackages 'kmeans()' so the initialization
# is a random selection of points from the data matrix.
# (There is also a slight jitter applied to the initialization
# because 'kmeans()' barfs when there are exact ties, as
# occur with non-zero probability when the data are bootstrap
# samples.)
#
k.means