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

    function Value=get(m,Property)
%GET

%  Copyright 2000-2007 The MathWorks, Inc. and Ford Global Technologies, Inc.

if nargin==1;
    Value= [{'status','store','order','lamda', 'qr', 'pev'}'; get(m.xregmodel)];
else
    switch lower(Property)
        case 'status'
            Value= m.TermStatus;
        case 'store'
            Value= m.Store;
        case 'order'
            Value= ones(1,nfactors(m));
        case 'lambda'
            Value= m.lambda;
        case 'qr'
            Value= m.qr;
        case 'pev'
            Value= calcRi(m);
            if ~isempty(m.Store.mse)
                Value= sqrt(m.Store.mse)*Value;
            end
        otherwise
            try
                Value= get(m.xregmodel,Property);
            catch
                error(message('mbc:xreglinear:InvalidProperty', Property));
            end
    end
end