; CLUSTERS USING WARD'S METHOD

; -------------- Parameters --------------
x27 = 9     ; number of eigenfactors to use

; ---------------- Inputs ----------------
fr l
[cas_prefix]CA/cas                       ; correspondence-analysis output prefix

; --------------- Outputs ---------------
fr l
[class_dir]HC                            ; output directory
fr l
[ps_dendrogram][class_dir]/ps_dendro.ps  ; dendrogram, PostScript, with .ps suffix
fr l
[dendrogram_doc][class_dir]/docdendro    ; particle-assignment doc

; ----------- END BATCH HEADER -----------

vm
echo "if(! -d [class_dir]) mkdir [class_dir]"|csh

; clean up
de
[dendrogram_doc]


md
set mp
0

vm
echo "Classifying"; date

; classification, hierarchical
cl hc
[cas_prefix]_IMC  ; INPUT
(1-x27)  ; factors to use
(0)      ; no factor weighting
(5)      ; clustering criterion (5==Ward's method)
Y        ; dendrogram PostScript file?
[ps_dendrogram]   ; OUTPUT
Y        ; dendrogram document file?
[dendrogram_doc]  ; OUTPUT

vm
echo "Done"; date

en d