[R] Calling external file

[Steven Yen]

Hi
I collect a list of calls to a package in a function (routine) so that I do
not need to repeat the same sets of codes from program to program. In the
following, inserting the function into each program works. Then, I place
the function elsewhere in a PC folder, and include in with a 'source'
command. This does not work; it complains about a function (fn below) not
defined.
Compiling the function into a library file does not work either (with all
sorts of error messages saying this and that not defined).
Steven Yen

fn <- function(beta){
  f<-... (define f in this routine)
return(f)
}

max.calls<-function(method){
# *******************************************************
# Call maxLike with alternative algorithms
# *******************************************************
  many<-c("NR","BFGS","BFGSR","BHHH","SANN","CG","NM")
  if (method %in% many){
    ML<-maxLik(logLik=fn,grad=NULL,hess=NULL,start,
               method,print.level,constraints=NULL, ...)}
return(ML)
}
# This works:
ML<-max.calls(method)

# Does not work:
source("z:\\R\\yenlib\\lib\\max.calls.R")
ML<-max.calls(method)

Error: object 'fn' not found

	[[alternative HTML version deleted]]