(define-map fee-data uint {total-fees: uint, avg-fee: uint, tx-count: uint})
(define-data-var current-day uint u0)
(define-read-only (get-fee-data (day uint)) (map-get? fee-data day))
(define-public (record-fee (day uint) (fee uint))
(match (map-get? fee-data day)
d (let ((new-count (+ (get tx-count d) u1)))
(map-set fee-data day {total-fees: (+ (get total-fees d) fee), avg-fee: (/ (+ (get total-fees d) fee) new-count), tx-count: new-count})
(ok true))
(begin (map-set fee-data day {total-fees: fee, avg-fee: fee, tx-count: u1}) (ok true))))