creating function bodies using body()

body(f) <- expression({x^2; x+3})
f

-----Original Message-----
From: Setzer.Woodrow at epamail.epa.gov
[mailto:Setzer.Woodrow at epamail.epa.gov]
Sent: Friday, April 04, 2003 5:06 PM
To: r-help at stat.math.ethz.ch
Subject: [R] creating function bodies using body()


I'm having trouble figuring out how to create a function 
using "body<-"
().  The help file for body() says that the argument should 
be a list of
R expressions.  However if I try that I get an error:

tmpfun <- function(a, b=2){}
body(tmpfun) <- list(expression(z <- a + b),expression(z^2))

Error in as.function.default(c(formals(f), value), envir) :
        invalid formal argument list for "function"

Can someone give me a simple example for doing this?  Thanks!

R. Woodrow Setzer, Jr.                        Phone: (919) 541-0128
Experimental Toxicology Division             Fax:  (919) 541-4284
Pharmacokinetics Branch
NHEERL B143-05; US EPA; RTP, NC 27711