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

    function m=loadobj(m);
% xreglinear/LOADOBJ

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



if isa(m,'struct');
  m= xreglinear(m);
end
if isempty(var(m)) & ~isempty(m.Store) & isfield(m.Store,'R') & isfield(m.Store,'mse')
	% move stats to model stats store
	R= m.Store.R;
	rd= max(abs(diag(R)));
	if ~isempty(R) & abs(diag(R)) > eps*size(R,1)*rd
		ri= calcRi(m);
	else
		ri= [];
	end
	mse= m.Store.mse;
	if ~isempty(ri) & ~isempty(mse)
		ri= ri*sqrt(mse);
	end
	if isfield(m.Store,'X')
		df= size(m.Store.X,1)-numParams(m);
	else
		df= Inf;
	end
	m= var(m,ri,mse,df);
end