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

    function [m,OK]= InitModel(m,x,y,Wc,IsCoded,doRinvCalc)
% xregUniSpline/INITMODEL initialises unispline model for stats

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

if nargin<4
    Wc= [];
end
if nargin<5
    IsCoded= true;
end
if nargin<6
    doRinvCalc= true;
end
if ~IsCoded
    [x,y]= checkdata(m,x,y);
end

[m.mv3xspline,OK] = InitModel(m.mv3xspline,x,y,Wc,IsCoded,doRinvCalc);
if OK
    [ri,ms,df]= var(m.mv3xspline);
    m.xregmodel= var(m.xregmodel,ri,ms,df);
else
    m.xregmodel= var(m.xregmodel,[],NaN,0);
end