[R] Functions within functions in R and S-Plus

[Spencer Graves]

p.s.  This modification gave the same answer for me in both S-Plus 6.2 
and R 2.1.0 patched under Windows XP.

Spencer Graves wrote:

> How about the following:
> 
> mainfunc <- function(x){
> 
> est <- function(x,par){
> abs(sum(par*x))
> }
> 
> func <- function(par,x, est.=est){
>    est.(x,par)
> }
> 
> est.theta <- function(x, func.=func, est.=est){
>    optimize(func.,lower=-10, upper=20,x=x,
>         est.=est.)$minimum
>    }
> 
> est.theta(x, func.=func, est.=est)
> 
> }
> 
>  > x <- 1:10
>  > mainfunc(x)
> [1] 5.286101e-006
> 
>       spencer graves
> 
> Victor Gravenholt wrote:
> 
>> Sorry to bother you about a S-Plus related problem, but I hope someone 
>> can help.
>> I have tried to "translate" some code from R to S-Plus (I have 
>> colleague that insists on using S-Plus. And yes, I have tried to make 
>> him change to R...)
>> The following code works out fine in R, but in S-Plus (S-PLUS 6.2 for 
>> Windows Professional Ed.) I get the error message "Problem in 
>> est.theta(x): Object "func" not found ".
>> I have tried to keep most of the structure in my original problem (but 
>> simplified it!), so the code could seem a bit strange.
>> I suspect that this has something to do with different scoping rules 
>> in R and S-Plus, but still I have not found a workable solution in 
>> S-Plus.
>>
>> mainfunc <- function(x){
>>
>> est <- function(x,par){
>> abs(sum(par*x))
>> }
>>
>> func <- function(par,x){
>>    est(x,par)
>> }
>>
>> est.theta <- function(x){
>>    optimize(func,lower=-10, upper=20,x=x)$minimum
>>    }
>>
>> est.theta(x)
>>
>> }
>>
>> x <- 1:10
>> mainfunc(x)
>>
>>
>>
>>
>> Any help is greatly appreciated.
>>
>> Victor
>>
>> ______________________________________________
>> R-help at stat.math.ethz.ch mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide! 
>> http://www.R-project.org/posting-guide.html
> 
>