;;Example ViSta Save-Model file. Load this file with the Load-Model command.
;;This is a Principal Components model of the Cars Data
;;This is a hand-reformated version of the file produced by Save-Model.


(when *guidemap* (send *guidemap* :close))  
(show-workmap)


(PRINCIPAL-COMPONENTS 
:TITLE "Principal Components" 
:NAME "PCA-CarPrefs" 
:DIALOG NIL 
:COVARIANCES NIL 
:DATA 
(DATA "CarPrefs" 
      :TITLE "Preferences of 14 People for 17 Automobiles" 
      :VARIABLES 
      '("pgmr1" "pgmr2" "pgmr3" "pgmr4" "pgmr5" "pgmr6" "pgmr7" 
        "pgrm8" "Prsdnt" "pgmr9" "pgmr10" "Mktng1" "GrndMa" "Mktng2") 
      :TYPES 
      '("Numeric" "Numeric" "Numeric" "Numeric" "Numeric" "Numeric" 
        "Numeric" "Numeric" "Numeric" "Numeric" "Numeric" "Numeric" 
        "Numeric" "Numeric")
      :LABELS '("cadillac eldorado" "chevrolet chevette" "chevrolet citation"
                "chevrolet malibu" "ford fairmont" "ford mustang" 
                "ford pinto" "honda accord" "honda civic" 
                "lincoln continental" "plymouth gran-fury" "plymouth horizon"
                "plymouth volare" "pontiac firebird" "volkswagen dasher"
                "volkswagen rabbit" "volvo dl")
      :DATA '(0 8 0 7 9 9 0 4 9 1 2 8 0 9
              0 0 5 1 2 0 0 4 2 3 4 6 9 8 
              0 4 5 3 3 0 5 8 1 4 1 7 9 5 
              0 6 2 7 4 0 0 7 2 3 1 6 5 8 
              0 2 2 4 0 0 6 7 1 5 0 6 5 5 
              0 5 0 7 1 9 7 7 0 5 0 5 5 5 
              0 0 2 1 0 0 0 3 0 3 0 0 7 8 
              9 5 5 6 8 9 7 6 0 9 6 0 7 8 
              8 4 3 6 7 0 9 5 0 7 4 0 7 5 
              0 7 0 8 9 9 0 5 9 2 2 9 0 9 
              0 7 0 6 0 0 0 4 3 4 1 7 0 8 
              0 3 0 5 0 0 5 6 3 5 4 6 5 5 
              0 4 0 5 0 0 3 6 1 4 0 5 5 5 
              1 0 0 7 8 9 5 6 1 3 2 9 0 7 
              8 4 5 8 6 9 6 5 0 8 8 0 0 0 
              8 4 5 8 5 0 9 7 0 9 6 0 0 0 
              9 9 8 9 9 9 8 9 0 9 9 0 0 0)))

(vista-message "Model Finished")