www.gusucode.com > mbctools 工具箱 matlab 源码程序 > mbctools/@mdevmlerf/mdevmlerf.m

    function md= mdevmlerf(mdev,m,DS)
% MDEVMLERF

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




loadstr=0;
if nargin==0
	mdev= modeldev;
	m= [];
	DS= [];
	loadstr=1;
end




if strcmp(class(mdev),'modeldev')
	md.Model    = m;
	md.DiagStats= DS;
	md.RandomEffects= [];
	md= class(md,'mdevmlerf',mdev);
	
	if ~loadstr
		pointer(md);
	end
else
	% update mle models
	
	md= mdev;
	md.Model    = m;
	md.DiagStats= DS;
	md.RandomEffects= [];
	
	pointer(md);
	
end