MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Graphics
  • Next by Date: RE: Is it possible to access internal variables? [CompoundExpression]
  • Previous by thread: Use of NonlinearRegress[..., ShowProgress -> True,...] Option Output.
  • Next by thread: Warning Messages on Notebooks Produced by Later Versions