;;; -*- Syntax: Common-lisp; Mode: LISP; Package: USER; Base: 10 -*-

;;;
;;; AUTOCLASS II DATA BASE EXECUTION FILE		***  10 CLASSES  ***
;;;
;;; Data Base Title : Iris DB
;;;
;;; Source of Data Base : Fisher
;;;
;;; Prepared by : Michael Marshall
;;;
;;; Data Base File : >marshall>autoclass>iris>iris.db
;;;
;;; Classification File 
;;;
;;;***************************************************
;;;


;;; 	EXECUTE THE FOLLOWING FORMS AT THE TOP LEVEL OF A LISP LISTENER

;;;
;;; GENERATE BEST CLASSIFICATIONS
;;;

  (send *terminal-io* :set-more-p nil)				; turn off *MORE* processing
  (send *terminal-io* :set-deexposed-typeout-action :permit)	; allow Lisp Listener to typeout when de-exposed

   (load "cha:>u>taylor>ui>autoclass-x>AC>development-30E.bin")
   (load "cha:>u>taylor>ui>autoclass-x>AC>dev-will.bin")

   (read-db "CHA:>marshall>autoclass>iris>iris.db" 'all :variable-descriptions t)
   (collect-real-priors-from-data :fixed-sigma nil)
   (setf *current-results* "cha:>marshall>autoclass>iris>iris-10.wt-set")
   (setf *partition* (make-part&classes 10))
   (find-best-n 5 10 *partition* 'disperse-cycle 5 *current-results*)



;;; LOADING SINGLE BEST CLASSIFICATION FOR USER INTERFACE
;;;

  (load "cha:>u>taylor>ui>autoclass>load-it.lisp")		;; load user interface

  (load "cha:>marshall>autoclass>iris>iris-data-mods.lisp")

    (read-db "CHA:>marshall>autoclass>iris>iris.db" 'all :variable-descriptions t)
    (collect-real-priors-from-data :fixed-sigma nil)
    (setf *current-results* "cha:>marshall>autoclass>iris>iris-10.wt-set")
    (get-best-of-weightings *current-results*)
    (setf *partition* (make-part&classes 10))
    (collect-weights *partition*)
    (update-partition-mmls *partition*)
    (let ((vol (sys:console-volume)))
     (setf (sys:console-volume) .8225)
     (mapcar #'eval '((beep) (sleep .22) (beep) (sleep .11) (beep) (beep) (sleep .22) (beep) (sleep .55)
		            (beep) (sleep .22) (beep)))
     (setf (sys:console-volume) vol))


;;; HARDCOPIES FOR BASIC CLASSIFICATION CLASSES 
;;; 

   All class metrics
   All-classes by Attribute  (up to 10)
   All-attributes by Class

;;; XREFS FOR BASIC CLASSIFICATION CLASSES 
;;; 
   (setf *class-assignments* (get-max-weight-classes *curr-wts*))

   (print-iris-classes ">marshall>autoclass>iris>sort-classes.text")
   (print-iris-classes-3 ">marshall>autoclass>iris>sort-case-ids.text")