title1 "Zhluková analýza pre dáta zo Sharmu, tab. 7.1";
data table1;
	input sid $ 1-2 income 4-5 educ 7-8;
cards;
S1  5  5
S2  6  6
S3 15 14
S4 16 15
S5 25 20
S6 30 19
;
run;
proc cluster simple noeigen method=centroid rmsstd
	rsquare nonorm out=tree;
	id sid;
	var income educ;
run;
proc tree data=tree out=clus3 nclusters=3;
	id sid;
	copy income educ;
run;
proc sort; by cluster;run;
proc print; by cluster;
	var sid income educ;
run;
title2 "3 zhluky"; quit;