options ls=250 ps=100 nodate nocenter;
data library.initial;
	input calories protein fat calcium iron ;
cards;
331.111 19 27.556 8.778 2.467
159.667 20.067 7.533 23.6 1.873
75 13.667 1 84.667 4.667
;
run;
proc fastclus data=library.food seed=library.initial maxclusters=3 out=library.new maxiter=20;
		id name;
	var calories protein fat calcium iron ;
run;
proc sort; by cluster;
proc print; by cluster;
	var name cluster distance calories protein fat calcium iron ;
run;
title2 "Nehierarchicke zhlukovanie - 3 zhluky"; quit;