Exemplo Richard

data agro_cluster;

    input Cidade $  A_Total P_Cafe P_Soja 

          P_Milho T_Agro R_PerC Irrig;

    datalines;

Pira 1200 350 200 400 0.8 1500 30

Lime 900 200 180 250 0.7 1300 20

R_Preto 1500 400 250 500 0.85 1700 40

Araras 800 150 100 200 0.6 1200 15

Sao_Car 1100 300 220 350 0.75 1400 25

Franca 950 250 180 280 0.7 1350 18

Campi 1300 380 210 450 0.82 1600 35

Americ 850 180 150 220 0.65 1250 20

Jundi 1000 270 190 300 0.72 1450 22

Itu 780 140 120 180 0.6 1180 12

;

proc print;

run;

/* input Cidade $  A_Total P_Cafe P_Soja 

          P_Milho T_Agro R_PerC Irrig; */

proc cluster outtree = arvore method = average;

var A_Total P_Cafe P_Soja 

          P_Milho T_Agro R_PerC Irrig;

id Cidade;

run;

PROC TREE DATA = arvore;

RUN;

Equalização

Cidade	A_Total	P_Cafe	P_Soja	P_Milho	T_Agro	R_PerC	Irrig
Pira	1200	3500	2000	4000	8000	1500	3000
Lime	900	2000	1800	2500	7000	1300	2000
R_Preto	1500	4000	2500	5000	8500	1700	4000
Araras	800	1500	1000	2000	6000	1200	1500
Sao_Car	1100	3000	2200	3500	7500	1400	2500
Franca	950	2500	1800	2800	7000	1350	1800
Campi	1300	3800	2100	4500	8200	1600	3500
Americ	850	1800	1500	2200	6500	1250	2000
Jundi	1000	2700	1900	3000	7200	1450	2200
Itu	780	1400	1200	1800	6000	1180	1200