function [str] = genStr(data)

[x, y] = size(data);

sumDistance = zeros(1,x);

for i = 1 : x
	for j = 1 : x
		sumDistance(1,i) += euc_distance(data(j,1:y-1), data(i,1:y-1), ones(1, y-1), ones(1, y-1));
	end
end

str = ones(1,x);

sumDistance;

for i = 1 : (floor(x / 2))
	[junk, ind] = max(sumDistance);
	str(1,ind) = 0;
	sumDistance(1,ind) = 0;
end