www.gusucode.com > mbcmodels 工具箱 matlab 源码程序 > mbcmodels/@xreginterprbf/summary.m

    function [s,list,SummStatsType,Description]= summary(m,Criteria,X,y,s2full,s2mle)
%SUMMARY summary statistics for RBF interpolant
%
%  [s,list,SummStats] = SUMMARY(m, Criteria, X, Y);
%  [s,list,SummStats] = SUMMARY(m, Criteria, X, Y, s2full);
%  [MINorMAX,list,SummStats]= summary(m) returns a list of criteria and whether
% to use as summary 
%
% Criteria list = {'RMSE'}


%  Copyright 2008-2009 The MathWorks, Inc. and Ford Global Technologies, Inc.

list= {'RMSE'};
SummStatsType= -1;
% don't use RMSE as summary stats (calculated in stats method
if nargout>3
    Description= {'Root Mean Square Error'          'sqrt(SSE/(N-p))'};
end


if nargin<2 
    % true indicates minimise and false maximise
    s= true(size(list));
    return
end

if ischar(Criteria)
    switch lower(Criteria)
        case 'all'
            sel= 1:length(list);
        case 'data'
            sel= find(abs(SummStatsType)~=1);
        case 'summary'
            sel= find(abs(SummStatsType)~=0);
        case 'multi'
            sel= find(SummStatsType<=0);
        otherwise
            sel= find(ismember(list,Criteria));
    end
elseif iscell(Criteria)
    sel= find(ismember(list,Criteria));
elseif islogical(Criteria)
    sel= find(Criteria);
else
    sel= Criteria;
end


s= zeros(1,length(sel));
for i=1:length(sel)
    switch sel(i)
        case 1
            % RMSE
            s(i) = 0;
    end
end