Fixed bug when only one observation is in a group with k-means. Added seed for choose.theta().