
% lyngby_uis_cons_v     - Script for Consensus viewing
%
%       See also LYNGBY, LYNGBY_UIS_CONS.
%
% $Id: lyngby_uis_cons_v.m,v 1.2 2002/03/12 16:06:56 fnielsen Exp $ 


    if exist('RESULT_CONS') & ~isempty(RESULT_CONS)
      lyngby_log('Calling result view ...');
      
      lyngby_ui_view([X_MEAN ; X_STD ; ...
	RESULT_CONS.mean ; RESULT_CONS.std ], ...
	  'Mean(data)|Std(data)|Mean(Consensus)|Std(Consensus)', ...
	  'callback', 'lyngby_ui_view_cons', ...
	  'CallbackType', [ 'Time|Eigenspace' ]);
      
      lyngby_log('Result view called!');
    else
      lyngby_ui_message(['There are no Consensus results. ' ...
	    'Please press ''Calculate!''']); 
    end
	
