;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; This file is part of "NOVA": NOVA = search + COCOMO tools ; Copyright, 2008, Tim Menzies tim@menzies.us ; ; NOVA is free software: you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation, either version 3 of the License, or ; (at your option) any later version. ; ; NOVA is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; You should have received a copy of the GNU General Public License ; a long with NOVA. If not, see . ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun hoh-in (engine-score-fn strategy-score-fn) "Prints statistical comparison of search engines vs. Hoh In strategies." (let (tables) (dolist (cs *case-studies*) (dolist (p *policies*) (push (list (concatenate 'string (third cs) "/" (third p)) (create-win-loss-table nil (append (score-engines engine-score-fn :case-study-name (first cs) :policy-name (first p)) (score-strategies strategy-score-fn :case-study (funcall (fourth cs)))))) tables))) (print-win-loss-tables t (nreverse tables))))