
% lyngby_uis_ts_v      - Script for t-test view
%
%       See also: lyngby_ts_global, lyngby_ui_global

% cvs : $Id: lyngby_uis_ts_v.m,v 1.3 2000/05/16 15:06:19 mgl Exp $ 
%       $Revision: 1.3 $    


    if (exist('RESULT_TS')) & ~isempty(RESULT_TS)
      STRENGTH_TS = 1-RESULT_TS;
      
%      lyngby_ui_view([X_MEAN ; X_STD ; RESULT_TS ; 1-PROB_TS ; ...
%	-log10(PROB_TS) ; (PROB_TS<TS_ERRORLEVEL).*(1-TS_ERRORLEVEL)], ...
%	  'Mean(data)|Std(data)|t-statistics|Probability map|-log10(p)|Activation map', ...
%	  'title', 't-test', ...
%	  'callback', 'lyngby_ui_view_ts', ...
%	  'CallbackType', 'Time|Histogram|Estimated pdfs');

      lyngby_ui_view([RESULT_TS ; 1-PROB_TS ; -log10(PROB_TS) ; (PROB_TS<TS_ERRORLEVEL).*(1-TS_ERRORLEVEL) ; X_MEAN ; X_STD ], ...
	  't-statistics|Probability map|-log10(p)|Activation map|Mean(data)|Std(data)', ...
	  'title', 't-test', ...
	  'callback', 'lyngby_ui_view_ts', ...
	  'CallbackType', 'Time|Histogram|Estimated pdfs');
      
    else
      lyngby_ui_message('There are no Ordinary t-test results. Please press ''Calculate!''');
    end      
	
	


