>>
>> eb <- TraceSetup_2(fn = function(x) x^2 + 1)
>> eb$fn
> function(x) x^2 + 1
>>
>> ## ea$fn is still the same:
>> ea$fn
> function(x) x^2 - 2*x + 1
>>
>
> Obviously, in this case some further arrangements are needed for the
> e
Of J C Nash
Sent: Monday, August 27, 2018 8:44 PM
To: Richard M. Heiberger
Cc: List r-package-devel
Subject: Re: [R-pkg-devel] Trying to work around missing functionality
Unfortunately, makes things much worse. I'd tried something like this already.
* checking examples ... ERROR
Running ex
ed globals.R. (Of course, the name
> of the source file containing the command isn’t important.)
>
> I hope this helps,
> John
>
> -------------------------
> John Fox
> Professor Emeritus
> McMaster University
> Hamilton, Ontari
ersity
> Hamilton, Ontario, Canada
> Web: https://socialsciences.mcmaster.ca/jfox/
>
>
>
>> -Original Message-
>> From: R-package-devel [mailto:r-package-devel-boun...@r-project.org] On
>> Behalf Of J C Nash
>> Sent: Monday, August 27, 2018 8
/jfox/
> -Original Message-
> From: R-package-devel [mailto:r-package-devel-boun...@r-project.org] On
> Behalf Of J C Nash
> Sent: Monday, August 27, 2018 8:44 PM
> To: Richard M. Heiberger
> Cc: List r-package-devel
> Subject: Re: [R-pkg-devel] Trying to work ar
Unfortunately, makes things much worse. I'd tried something like this already.
> * checking examples ... ERROR
> Running examples in ‘rootoned-Ex.R’ failed
> The error most likely occurred in:
>
>> ### Name: rootwrap
>> ### Title: zeroin: Find a single root of a function of one variable within
>>
Does this solve the problem?
if (getRversion() >= '2.15.1')
globalVariables(c('envroot'))
I keep this in file R/globals.R
I learned of this from John Fox's use in Rcmdr.
On Mon, Aug 27, 2018 at 8:28 PM, J C Nash wrote:
> In order to track progress of a variety of rootfinding or optimization
In order to track progress of a variety of rootfinding or optimization
routines that don't report some information I want, I'm using the
following setup (this one for rootfinding).
TraceSetup <- function(ifn=0, igr=0, ftrace=FALSE, fn=NA, gr=NA){
# JN: Define globals here
groot<-list(ifn=ifn, i
