     :model/type :model.type/linear-cluster
     :model/n-peers 5
     :model/peek-peers 10
-    :model/peer-rate 200
+    :model/peer-rate 250
     :model/mean-ack-time 250
     :model/mean-completion-time 500}])
 

      (when-not (= result (* n-jobs tasks-per-job))
        (recur)))))

(def sim-db (d/db sim-conn))

(def result-db (d/db (:conn log)))

  (sim/create-test sim-conn
                   linear-cluster-model
                   {:db/id (d/tempid :test)
                    :test/duration (u/hours->msec 1)}))

(def linear-cluster-sim
  (sim/create-sim sim-conn
