Displaying 2 results from an estimated 2 matches for "stepredn".
Did you mean:
stephen
2006 Apr 21
5
optim "CG" bug w/patch proposal (PR#8786)
...0.1),f,method="CG",control=list(trace=0,type=2))
$par 3834.021 -2718.958
$value -0.0009983175 # should be 2!
Fix:
--- optim.c (Revision 37878)
+++ optim.c (Arbeitskopie)
@@ -970,7 +970,8 @@
if (!accpoint) {
steplength *= stepredn;
if (trace) Rprintf("*");
- }
+ } else
+ *Fmin = f;
}
} while (!(count == n || accpoint));
if (count < n) {...
2006 May 24
0
optim "CG" bug w/patch proposal (PR#8786)
...;>
>> >>>> Fix:
>> >>>> --- optim.c (Revision 37878)
>> >>>> +++ optim.c (Arbeitskopie)
>> >>>> @@ -970,7 +970,8 @@
>> >>>> if (!accpoint) {
>> >>>> steplength *= stepredn;
>> >>>> if (trace) Rprintf("*");
>> >>>> - }
>> >>>> + } else
>> >>>> + *Fmin = f;
>> >>>> }
>>...