; 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]/ps_dendro   ; dendrogram, PostScript, without .ps suffix
fr l
[dendrogram_doc][class_dir]/docdendro  ; particle-assignment doc

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

fr l
[temp_cluster_doc][class_dir]/tmpcluster

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

; clean up

de
[dendrogram_doc]

vm
echo "Classifying"; date

md
set mp
0

cl cla
[cas_prefix]        ; INPUT
[temp_cluster_doc]  ; OUTPUT (temp)
x27                 ; #eigenfactors to use
(8,8)               ; #iterations, centers/partition
(8)                 ; #partitions
                    ; occupancy cutoff
[ps_dendrogram].ps  ; OUTPUT
(1)                 ; plot cutoff
[dendrogram_doc]    ; OUTPUT

; clean up
de
[temp_cluster_doc]

vm
echo "Done" ; date

en d

; Modified 2009-07-29
;    2009-05-27 (trs) -- reflects syntax change in CL CLA