fix: Stop overwriting cost-of-service

chi-collective · Dec 2, 2023 · e790fae · e790fae
1 parent 898a00a
commit e790fae
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/notebooks/finance/model.clj b/notebooks/finance/model.clj
@@ -123,7 +123,8 @@
           revenue         (* revenue-per-paying paying)
           init-cpa        (cpa cost users)
           spend-rate      (inc (/ ad-spend-increase 100.0))
-          cost-of-service (* cost-of-service users)
+          cost-per-user   cost-of-service
+          cost-of-service (* cost-per-user users)
           initial         (dynamic/trace!
                            0
                            record-row
@@ -158,7 +159,7 @@
                                       (+ (* retention-rate
                                             (:cumulative-paying-users prev))
                                          new-paying-users))
-                    cost-of-service  (* cost-of-service users-sum)
+                    cost-of-service  (* cost-per-user users-sum)
                     total-cost       (+ new-spend cost-of-service)
                     revenue          (* revenue-per-paying paying-sum)]
                 (dynamic/trace!