(load "soybean-rdata")

(defun mix-up (list)
  "Randomize the order of elements in this list."
  (mapcar #'(lambda (pair) (rest pair))
	  (sort (mapcar #'(lambda (item) (cons (random 1.0) item)) list)
		#'(lambda (a b) (> (first a) (first b))))))

(setf soybean-2class-examples
      (mix-up (make-examples (append anthracnose brown_stem)
			     (append alternaria bact_pustule))))