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

    function [om,ok]= lsqom(m)
%LSQOM ordinary least squares fit

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

om= contextimplementation(xregoptmgr,m,@i_ols,[],'Least Squares',@lsqom);

AllOpts= {@lsqom, @minpress, @forwardselect, @backwardselect, @prune};
om = setAltMgrs(om,AllOpts);

ok=1;

function [m,cost,OK]= i_ols(m,om,x0,varargin);
cost=0;
[m,OK]= leastsq(m,varargin{:});