% 
% Written by:
% -- 
% John L. Weatherwax                2005-08-14
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
%
% Iterative adjustment of clusters (must have a preconsieved
% notion of what the cluster centers are):
% 
%-----

data = [ 1 3; 
         1 4; 
         2 4; 
         3 3; 
         4 0; 
         4 1; 
         4 2;
         4 3; 
         4 4; 
         5 0; 
         5 1; 
         5 2; 
         6 0; 
         6 1; 
         6 2;]; 

% Pt (a):
% 
means = [ 3 3; 6 1; ]; 
stds  = ones(size(means)); 
cluster_N_plot(data,means,stds,1); 

% pt (b):
% 
means = [ 3 3; 6 1; 1 4]; 
stds  = ones(size(means)); 
cluster_N_plot(data,means,stds,1); 

% pt (c):
% 
means = [ 2.5 3.5; 6 1 ]; 
stds  = ones(size(means)); 
cluster_N_plot(data,means,stds,2);