; CLUSTERS USING DIDAY'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]CLA                         ; output directory
fr l
[ps_dendrogram][class_dir]/dendrogram  ; dendrogram, PostScript 
fr l
[dendrogram_doc]docdendro  ; particle-assignment doc

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

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

md
set mp
0

de
[dendrogram_doc]

vm
echo "Classifying"; date

cl cla
[cas_prefix]       ; INPUT
tmpcluster         ; OUTPUT (temp)
(1-x27)  ; eigenfactors to use
(8,8)    ; #iterations, centers/partition
(11)     ; #partitions
         ; dendrogram cutoff
N  ; was Y        ; PostScript dendrogram output? \ [psdendrogram].ps  ; OUTPUT
Y        ; dendrogram doc file?
[dendrogram_doc]   ; OUTPUT

de
tmpcluster

vm
echo "Done"; date; tail [dendrogram_doc].$DATEXT

en