Re: Use of NonlinearRegress[..., ShowProgress -> True,...] Option Output.
- To: mathgroup at smc.vnet.net
- Subject: [mg34801] Re: [mg34740] Use of NonlinearRegress[..., ShowProgress -> True,...] Option Output.
- From: BobHanlon at aol.com
- Date: Fri, 7 Jun 2002 01:09:07 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 6/4/02 5:10:22 AM, heinemann at hmi.de writes:
>I want to use the output of the NonlinearRegress[] function option:
>ShowProgress -> True.
>
>...
>Iteration:2 ChiSquared:21.06194755583588` \
>Parameters:{0.220634,5.06267,3.95254,4.29661,0.350122,0.516797,-0.000112304,5
.\
>15095,1.02879,0.3}
>
>Iteration:6 ChiSquared:1.6841295804356515` \
>Parameters:{0.211089,5.17294,4.21411,4.14313,0.353888,0.422795,-0.00231333,4.
\
>18785,2.59554,-0.455421}
>...
>
>>From that I have to create a list of the form:
{{Iterationstep,{Parameters}},...}
>I failed(Yes with the simple copy and paste methode it works) but my aim is
>to make this procedure automatically. Do you have any idee how I can solve
>this problem ?
>
Here is a rough "hit it with a hammer" approach:
Needs["Statistics`NonlinearFit`"];
data={{1.0,1.0,.126},{2.0,1.0,.219},
{1.0,2.0,.076},{2.0,2.0,.126},{.1,.0,.186}};
param = {theta1,theta2,theta3};
NonlinearRegress[data,
theta1 theta3 x1/(1+theta1 x1+theta2 x2),
{x1,x2},param,
RegressionReport->BestFitParameters,
ShowProgress->True]
Append[n=1;
Cases[Take[NotebookGet[SelectedNotebook[]],{-5}],
x:{__?NumberQ}:>{n++, x}, Infinity],
{n, param /. (BestFitParameters/.%)}]
Bob Hanlon
Chantilly, VA USA