
% lyngby_uis_nnr_v     - Script for neural network regression view
%
%       See also: lyngby_nnr_global, lyngby_ui_global

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


    if exist('RESULT_NNR_E') & ~isempty(RESULT_NNR_E)
      
%      lyngby_ui_view([ X_MEAN ; X_STD ;	mean(RESULT_NNR_Y.^2) ; ...
%	mean(RESULT_NNR_Y.^2) ./ (X_STD.^2 + realmin) ; ...
%	sqrt(2*RESULT_NNR_E) ; ...
%	X_STD ./ (sqrt(2*RESULT_NNR_E) + realmin) ], ...
%	  [ 'Mean(data)|Std(data)|sigma2(model)|' ...
%	    'sigma2(model)/sigma2(data)|' ...
%	    'std(error)|std(data) / std(error)'], ...
%	  'title', 'Neural network regression', ...
%	  'callback','lyngby_ui_view_nnr', ...
%	  'CallbackType', ...
%	  [ 'Time|Error|Error, abs|Network|Histogram of ' ...
%	    'data|Histogram of error|Histogram of error, bell']);

      lyngby_ui_view([	mean(RESULT_NNR_Y.^2) ; ...
                        mean(RESULT_NNR_Y.^2) ./ (X_STD.^2 + realmin) ; ...
	                sqrt(2*RESULT_NNR_E) ; ...
                        X_STD ./ (sqrt(2*RESULT_NNR_E) + realmin) ; ...
                        X_MEAN ; ...
                        X_STD ], ...
                     [ 'sigma2(model)|' ...
	               'sigma2(model)/sigma2(data)|' ...
	               'std(error)|' ...
                       'std(data) / std(error)|' ...
                       'Mean(data)|' ...
                       'Std(data)'   ], ...
	  'title', 'Neural network regression', ...
	  'callback','lyngby_ui_view_nnr', ...
	  'CallbackType', ...
	  [ 'Time|Error|Error, abs|Network|Histogram of ' ...
	    'data|Histogram of error|Histogram of error, bell']);
      
    else
      lyngby_ui_message(['There are no Neural Network Regression '...
	    'results. Please press ''Calculate!''']);
    end
