Aula 31/10 - MANOVA do Cluster feito na aula anterior e Distancias

MANOVA do Cluster feito na aula anterior



data DISTANCI;
input INDIV $ X1 X2;
cards;
1 10 4
2  5 8
3  9 3
;
proc distance data=DISTANCI method=euclid out=SAIDA1;
var interval (X1 X2);
run;
proc print data=SAIDA1;
run;

proc distance data=DISTANCI method=sqeuclid out=SAIDA2;
var interval (X1 X2);
run;
proc print data=SAIDA2;
run;

data DISTANCA;
input INDIV $ X1 X2 X3 $;
cards;
1 10 4 A
2  5 8 A
3  9 3 V
;
proc distance data=DISTANCA method=sqeuclid out=SAIDA3;
var interval (X1 X2) ordinal (X3);
run;
proc print data=SAIDA3;
run;
proc cluster data=SAIDA3 (type=distance) outtree=A;
run;
proc tree data=A;
run;

data DISTANC;
input INDIV $ X1 X2 X3 $;
cards;
1 10 4 A
2  5 8 A
3  9 3 V
;
proc distance data=DISTANC method=djaccard out=SAIDA4;
var ratio (X1 X2) anominal (X3);
run;
proc print data=SAIDA4;
run;

data DIST;
input ESPECIE $ L1-L10;
cards;
E1 0 0 1 1 1 0 1 1 1 0
E2 1 1 1 1 0 0 0 0 1 1
;
proc distance data=DIST method=jaccard out=SAIDA4;
var anominal(L1-L10);
run;
proc print data=SAIDA4;
run;