                      (fn [result [gid gid-stats]]
                        (reduce
                          (fn [result [tid {:keys [A S] :or {A 0 S 0}}]]
-                           (let [consensus (/ A (+ S 1.0))]
-                             (assoc-in result [tid gid] consensus)))
+                           (let [prob (/ A (+ S 1.0))]
+                             (assoc-in result [tid gid] prob)))
                          result
                          (:votes gid-stats)))
                        ;; +1 acts as a dumb prior

                            (map second)
                            (reduce *)))
                     tid-gid-probs)]
               tid-gid-probs))


      :repness

                 (group-votes subgroup-clusters' base-clusters votes-base)))))


      ; {tid consensus}
      :group-aware-consensus
           (plmb/fnk [group-votes]
             (let [tid-gid-probs
