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

              (dissoc :positions)))))


(defnp recenter-clusters
  "Replace cluster centers with a center computed from new positions"
  [data clusters]
  (greedy

    [] clusters))


(defn clean-start-clusters
  "This function takes care of some possible messy situations which can crop up with using 'last-clusters'
  in kmeans computation, and generally gets the last set of clusters ready as the basis for a new round of
  clustering given the latest set of data."
