; -----------------------------------
; clcla.spi
; PURPOSE: invokes CL CLA command
; ASSUMES: user wants a dendrogram, and no cluster.doc

; -------- INPUT ---------------------
[f1]     = 1	; Beginning of factors used
[f2]     = 3	; Last factor used
[cutoff] = 0	; Cutoff %

; ------ INPUT FILES ---------------

FR G
[prefix]data/control	; Prefix of *_IMC file

;---- OUTPUT FILES -----------------

FR G
[output]data/clcla_sma_clus  ; Name of cluster file

FR G
[dend]data/clcla_dend.ps     ; Name of dendrogram PS file

FR G
[doc]data/clcla_dend         ; Name of dendrogram coc file

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

VM
echo " Setting Random Number seed xxxxxxxxxxxxxxxxxxxxxxxx"

MD                 ; To Repeat same results each run
SET SEED
1111
         
VM
echo " Running 'CL CLA' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

CL CLA
[prefix]	   ; File name prefix   (input)
[output]	   ; Cluster file name  (output)
3                  ; Factors used
5,4		   ; Iterations and centers	
8		   ; Partitions = # of clusters to look for
0                  ; Occupancy cut off (show all)
[dend]	           ; Name of dendrogram PS (output)
[cutoff]           ; Cutoff %
[doc]              ; Name of dendrogram doc file (output)

VM
echo " Listing dendrogram doc file xxxxxxxxxxxxxxxxxxxxxxx"
VM 
gedit [doc].$DATEXT &

VM
echo " Displaying dendrograms xxxxxxxxxxxxxxxxxxxxxxxxxxxx"
VM 
evince [dend] &
VM
echo " "

EN