      :center (mean (map :center [clst1 clst2]))}))
 
 
-(defnp most-distal
+(defn most-distal
   "Finds the most distal point in all clusters"
   [data clusters]
   (let [[dist clst-id id]


 
; Each cluster should have the shape {:id :members :center}
(defnp kmeans
  "Performs a k-means clustering."
  [data k & {:keys [last-clusters max-iters] :or {max-iters 20}}]
  (let [data-iter (zip (rownames data) (matrix (get-matrix data)))

    clusters)))


(defn safe-recenter-clusters
  "Replace cluster centers with a center computed from new positions"
  [data clusters]
  (as-> clusters clsts
