(defun Oracle (rule data)
  (if (equal (RDRule-prediction rule) (eg-class data))
      t
      nil))

;(deftest test-Oracle ()
;  (check
;    (Oracle (AddRule (first (table-rows (weather))) nil nil (list 0 1 2 3)) (first (table-rows (weather))))))