
% lyngby_uis_km        - Script executed for K-means analysis
%
%       See also: lyngby_km_global, lyngby_ui_global

% cvs : $Id: lyngby_uis_km.m,v 1.4 1999/08/24 13:58:52 fnielsen Exp $ 
%       $Revision: 1.4 $    


    [RESULT_KM_CENTER, RESULT_KM_ASSIGN, RESULT_KM_INFO] = ...
	lyngby_km_main(XN', ...
	'Type', KM_TYPE, ...
	'Standardization', KM_STANDARDIZATION, ...
	'Clusters', KM_CLUSTERS, ...
	'Init', KM_INIT, ...
	'DecayRate', KM_DECAYRATE, ...
	'PositionWeight', KM_POSITIONWEIGHT, ...
	'Iterations', KM_ITERATIONS, ...
	'Variable', KM_VARIABLE, ...
	'Paradigm', PN', ...
	'Components', KM_COMPONENTS);

    if strcmp(lower(KM_VARIABLE), 'time')
      RESULT_KM_CENTERSIM = lyngby_km_centersim(XN', ...
	  RESULT_KM_CENTER, RESULT_KM_ASSIGN);
    else
      RESULT_KM_CENTERSIM = [];
    end
    
    RESULT_KM_CENTER = RESULT_KM_CENTER';
    RESULT_KM_ASSIGN = RESULT_KM_ASSIGN';
    RESULT_KM_CENTERSIM = RESULT_KM_CENTERSIM';
    RESULT = RESULT_KM_ASSIGN;
	  
