Re: [R] defining a template for functions via do.call and substit ute.

[Dimitris Rizopoulos]

Or a slight modification
fun <- function(a, b) a+b
####
g <- function(){}
body(g) <- do.call("substitute", list(body(fun), list(a=as.name("x"), 
b=as.name("y"))))
formals(g) <- alist(x=, y=)
g

Best,
Dimitris
----
Dimitris Rizopoulos
Ph.D. Student
Biostatistical Centre
School of Public Health
Catholic University of Leuven
Address: Kapucijnenvoer 35, Leuven, Belgium
Tel: +32/16/396887
Fax: +32/16/337015
Web: http://www.med.kuleuven.ac.be/biostat/
    http://www.student.kuleuven.ac.be/~m0390867/dimitris.htm
----- Original Message ----- 
From: "Liaw, Andy" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Wednesday, September 29, 2004 2:13 PM
Subject: RE: [R] defining a template for functions via do.call and 
substit ute.


Here's one not-so-straightforward way:
f <- function(a, b) a + b
flist <- as.list(f)
names(flist)[1:2] <- c("x", "y")
flist[[3]] <- do.call("substitute", list(body(f), 
list(a=as.name("x"),
b=as.name("y"))))
g <- as.function(flist)
g
function (x, y)
x + y
HTH,
Andy
From: [EMAIL PROTECTED]
Hi,
Given a function
  fun <- function(a, b) a + b
how do I generate the function 'function(x, y) x + y'?
Working from the help files and Bill Venables' R-news article
(June 2002),
I have tried various permutations with substitute without success.
e.g.
  do.call("substitute", list(fun, list(a = as.name("x"), b =
as.name("y"))))
Regards,
John.
John Gavin <john.gavin at ubs.com>,
Quantitative Risk Models and Statistics,
UBS Investment Bank, 6th floor,
100 Liverpool St., London EC2M 2RH, UK.
Phone +44 (0) 207 567 4289
Fax   +44 (0) 207 568 5352
Visit our website at http://www.ubs.com
This message contains confidential information and is
intend...{{dropped}}
______________________________________________
[EMAIL PROTECTED] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html

______________________________________________
[EMAIL PROTECTED] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! 
http://www.R-project.org/posting-guide.html

______________________________________________
[EMAIL PROTECTED] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html