               (kmeans (assoc rating-mat :matrix mat :cols (map #(str "pc" %) (:n-comps opts')))
                 (:group-k opts')
                 :last-clusters (:group-clusters conv)
-                :cluster-iters (:cluster-iters opts')))
+                :cluster-iters (:group-iters opts')))
      :repness
             (plmb/fnk [rating-mat group-clusters]
               (conv-repness rating-mat group-clusters))}))
+
+
+(def med-conv-update-graph1
+  "For computing small conversation updates (those with need of base clustering)"
+  (merge small-conv-update-graph
+    {:base-clusters
+            (plmb/fnk [conv rating-mat mat opts']
+              (kmeans (assoc rating-mat :matrix mat)
+                (:base-k opts')
+                :last-clusters (:base-clusters conv)
+                :cluster-iters (:base-iters opts')))
+     :proj  (plmb/fnk [base-clusters pca]
+              (pca-project (map :center base-clusters) pca))
+     :group-clusters
+            (plmb/fnk [conv rating-mat proj opts']
+              (kmeans (assoc rating-mat :matrix proj)
+                (:grop-k opts')
+                :last-clusters (:group-clusters conv)
+                :cluster-iters (:group-iters opts')))}))
 
 
 (defn partial-pca



(def small-conv-update-graph
  (merge base-conv-update-graph
    {:mat   (plmb/fnk [rating-mat]
              "swap nils for zeros"
              (map (fn [row] (map #(if (nil? %) 0 %) row))
                (:matrix rating-mat)))
     :pca   (plmb/fnk [conv mat opts']



(def base-conv-update-graph
  "Base of all conversation updates; handles default update opts and does named matrix updating"
  {:opts'       (plmb/fnk [opts]
                  "Merge in opts with the following defaults"
                  (merge opts {:n-comps 2
                               :pca-iters 10
                               :base-iters 10
                               :base-k 100
                               :group-iters 10
                               :group-k 3}))
   :rating-mat  (plmb/fnk [conv votes]
                  (update-nmat (:rating-mat conv)
