(defun parseWrapperResultsMannWhitney ()
  (with-open-file (file "makecharts/data/WrapperResults.dat" :direction :input)
    (let ((line (read file))
	  (egs (list)))
      (while (> (list-length line) 0)
	(let ((names (pop line))
	      (abcds (pop line))
	      (avgabcd (make-abcd)))
	  (mapcar #'(lambda (y)
		      (mapcar #'(lambda (x)
				  (incf (abcd-a avgabcd) (aref x 4))
				  (incf (abcd-b avgabcd) (aref x 6))
				  (incf (abcd-c avgabcd) (aref x 8))
				  (incf (abcd-d avgabcd) (aref x 10)))
			      (rest y)))
		  abcds)
	  (push (list (nth 3 names) (nth 6 names) (pd avgabcd)) egs)))
      ;(print "Here0")
      (let ((treatments (list 'NB 'RANDOM 'MINUS-AVOID-NB 'WEIGHTED-RANDOM 'AVOID-WEIGHTED-RANDOM 'MINUS-AVOID-RANDOM)))
	;(print "Here0")
	(mapcar #'(lambda (x)
		    ;(print "Here1")
		    (mapcar #'(lambda (y)
				;(print "Here2")
				(if (not (equal x y))
				    (progn
				      ;(print "Here3")
				      (format t "~%M-W-W for ~A vs. ~A is ~A"
					      x y
					      (mann-whitney (mapcar #'third (remove-if-not #'(lambda (z) (equal (second z) x)) egs))
							    (mapcar #'third (remove-if-not #'(lambda (z) (equal (second z) y)) egs))
							    95)))))
			    treatments))
		    treatments)))))