(defn make-train-dataset
  [bag-of-words train-predataset]
  (let [train-dataset (make-dataset "train-dataset" bag-of-words train-predataset)
        train-dataset (make-apply-filter :numeric-to-nominal {:attributes [:class]} train-dataset)
        train-dataset (dataset-set-class train-dataset :class)]
    train-dataset))

(defn make-test-dataset
  [bag-of-words test-predataset]
  (let [test-dataset (make-dataset "train-dataset" bag-of-words test-predataset)
        test-dataset (make-apply-filter :numeric-to-nominal {:attributes [:class]} test-dataset)
        test-dataset (dataset-set-class test-dataset :class)]
    test-dataset))