             (if (> (:dist outlier) 0)
               ; There is work to be done, so do it
               (recur
-              (p :usr/inner-clean
                 (->
                   ; first remove the most distal point from the cluster it was in;
                   (map

      [{:id (inc (apply max (map :id clusters)))
        :members (rownames data)
        :center (mean (matrix (get-matrix data)))}]
      clsts)
    ; XXX - for profiling
    (greedy clsts)))


(defn merge-clusters [clst1 clst2]

            nil
            (assoc clst :center (mean (matrix (get-matrix rns)))))))
      clsts)
    ; Remove the nils, they break the math
    (remove nil? clsts)
    ; If nothing is left, make one great big cluster - so that things don't break in most-distal later
