www.gusucode.com > mbcdesign 工具箱 matlab 源码程序 > mbcdesign/@designdev/HSModel.m

    function m = HSModel(D,NewM)
%HSMODEL Hierarchical Statistical Model from Design dev object
%   m = HSModel(D);       % get model
%   m = HSModel(D,NewM);  % set model

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



if nargin==1
	switch length(D)
	case 1
		m= getModel(D);
	case 2
		m= getModel(D,':');
		m= xregtwostage(m{:});
	otherwise
		error(message('mbc:designdev:InvalidState'))
	end
else
	switch length(D)
	case 1
		D= setmodel(D,NewM);
	case 2
		L= get(NewM,'Local');
		G= get(NewM,'BaseGlobal');
		D= DesignDev2Cell(D);
		D{1}= setmodel(D{1},L);
		D{2}= setmodel(D{2},G);
		D= Cell2DesignDev(D);
	otherwise
		error(message('mbc:designdev:InvalidState'))
	end
	m= D;
end