Proc print data=kh;
Run;
Proc cluster data=kh method=ave std pseudo ccc outtree=kh1;
Var x1 x2;
Id dq;
Proc tree data=kh1 horizontal graphics;
Title ‘Means Cluster Plot ’;
Run;
Proc cluster data=kh method=med std pseudo ccc outtree=kh1;
Var x1 x2;
Id dq;
Proc tree data=kh1 horizontal graphics;
Title ‘Median Distance Cluster Plot’;
Run;
Proc cluster data=kh method=WARD std pseudo ccc outtree=kh1;
Var x1 x2;
Id dq;
Proc tree data=kh1 horizontal graphics n=5 out=kh2;
Copy x1 x2;
Title ‘Ward Cluster Plot’;
Run;
Proc cluster data=kh method=fle std pseudo ccc;
Var x1 x2;
Id dq;
Proc tree data=kh1 horizontal graphics;
Title ‘Average Cluser Plot’;
Run;
Proc sort data=kh2;
By cluster;
Var x1 x2;
Run;
Run;
Proc cluster data=kh method=ave std pseudo ccc outtree=kh1;
Var x1 x2;
Id dq;
Proc tree data=kh1 horizontal graphics;
Title ‘Means Cluster Plot ’;
Run;
Proc cluster data=kh method=med std pseudo ccc outtree=kh1;
Var x1 x2;
Id dq;
Proc tree data=kh1 horizontal graphics;
Title ‘Median Distance Cluster Plot’;
Run;
Proc cluster data=kh method=WARD std pseudo ccc outtree=kh1;
Var x1 x2;
Id dq;
Proc tree data=kh1 horizontal graphics n=5 out=kh2;
Copy x1 x2;
Title ‘Ward Cluster Plot’;
Run;
Proc cluster data=kh method=fle std pseudo ccc;
Var x1 x2;
Id dq;
Proc tree data=kh1 horizontal graphics;
Title ‘Average Cluser Plot’;
Run;
Proc sort data=kh2;
By cluster;
Var x1 x2;
Run;