diff --git a/src/com/owoga/corpus/markov.clj b/src/com/owoga/corpus/markov.clj index c868d81..510984b 100644 --- a/src/com/owoga/corpus/markov.clj +++ b/src/com/owoga/corpus/markov.clj @@ -1143,7 +1143,8 @@ (defn mle [model lookup] - (let [[parent freq] (lookup-with-backoff model lookup) + (let [N (calc-N model) + [parent freq] (lookup-with-backoff model lookup) [_ parent-freq] (get parent [] [nil N])] [freq parent-freq]))