 (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']

                (:group-k opts')
                :last-clusters (:group-clusters conv)
                :cluster-iters (:cluster-iters opts')))
                      }))


;(defn format-conv [conv]
  ;(letfn [(frmt [conv' cmpnt f]
            ;(assoc conv cmpnt (f (conv cmpnt))))]
  ;(-> conv
    ;(frmt :pca #(hash-map :center (:center pca)
                ;:pcs (:pcs pca))
  ;{:last-updated (conv :last-updated)
   ;:base-clusters (



;   * base-cluster-full [ptpt to base mpa]


(def base-conv-update-graph
  {:opts'       (plmb/fnk [opts]
                  "Merge in opts with the following defaults"
