Re: [R] How to modify function for list

2007-10-03 Thread Chung-hong Chan
> > > > Regards, > > C > > > > > > On 10/3/07, Christos Hatzis <[EMAIL PROTECTED]> wrote: > >> Instead of > >> > >>> bmisds(age,gender,bmi) > >> Try the vectorized version > >> > >>> mapply(bmisds, age

Re: [R] How to modify function for list

2007-10-03 Thread Duncan Murdoch
s <[EMAIL PROTECTED]> wrote: >> Instead of >> >>> bmisds(age,gender,bmi) >> Try the vectorized version >> >>> mapply(bmisds, age, gender, bmi) >> See ?mapply >> >> -Christos >> >> >> >>> -Original Message--

Re: [R] How to modify function for list

2007-10-03 Thread Chung-hong Chan
Yes, I tried. Wrong calculation. On 10/3/07, Stefan Grosse <[EMAIL PROTECTED]> wrote: > On Wednesday 03 October 2007 08:23:15 Chung-hong Chan wrote: > CC > > CC > Suppose I have a long list of age, gender and bmi from a data.frame > CC > called msltdata. > CC > > CC > > age <- msltdata$age > CC >

Re: [R] How to modify function for list

2007-10-03 Thread Stefan Grosse
On Wednesday 03 October 2007 08:23:15 Chung-hong Chan wrote: CC > CC > Suppose I have a long list of age, gender and bmi from a data.frame CC > called msltdata. CC > CC > > age <- msltdata$age CC > > gender <- msltdata$data CC > > bmi <-msltdata$bmi CC > > age CC > [1] 5 10 14 CC > > gender CC > [

Re: [R] How to modify function for list

2007-10-02 Thread Chung-hong Chan
> bmisds(age,gender,bmi) > > Try the vectorized version > > > mapply(bmisds, age, gender, bmi) > > See ?mapply > > -Christos > > > > > -Original Message- > > From: [EMAIL PROTECTED] > > [mailto:[EMAIL PROTECTED] On Behalf Of Chung-hong C

Re: [R] How to modify function for list

2007-10-02 Thread Christos Hatzis
2007 12:31 AM > To: [EMAIL PROTECTED] > Subject: [R] How to modify function for list > > Dear R Gurus, > > I have a function which calculate the BMI standard deviation > score based on the age and gender specific L, M, S value. > I have written a function like this > &g

[R] How to modify function for list

2007-10-02 Thread Chung-hong Chan
Dear R Gurus, I have a function which calculate the BMI standard deviation score based on the age and gender specific L, M, S value. I have written a function like this bmisds <- function (age, gender, bmi){ if (age ==1 & gender ==1) { bmif <- c(-1.013,16.133,0.07656) } else if