; CLUSTERS USING DIDAY'S METHOD

; --------- Parameters ---------
[num] = 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][class_dir]/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-[num]            ; Eigenfactors to use
8,8                ; # iterations, centers/partition
11                 ; # partitions
0                  ; Occupancy cutoff
[psdendrogram].ps  ; PostScript dendrogram OUTPUT
0.0                ; Dendrogram level cutoff
[dendrogram_doc]   ; OUTPUT

DE                 ; Unused
tmpcluster

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

EN