(defn train-and-evaluate-classifier
  [train-dataset test-dataset]
  (let [classifier (->
                     (make-classifier :bayes :naive)
                     (classifier-train train-dataset))
        evaluation (classifier-evaluate classifier :dataset train-dataset test-dataset)]
    (println evaluation)))