Re: [R] Put one random row dataset to first cell variable

From: Jan Sabee <jan.sabee_at_gmail.com>
Date: Wed 20 Apr 2005 - 20:21:02 EST

Yes, this is exactly what I want.
Many thanks and best regards,

Jan Sabee

On 4/20/05, Dimitris Rizopoulos <dimitris.rizopoulos@med.kuleuven.ac.be> wrote:
> maybe something like this could be helpful
>
> f <- function(..., ref){
> lis <- list(...)
> for(i in seq(along=lis)){
> x <- lis[[i]]
> r <- match(ref[i], x)
> lis[[i]] <- x[c(r, seq(along=x)[-r])]
> }
> lis
> }
> #########
> age <- c("young", "mid", "old")
> married <- c("no", "yes")
> income <- c("low", "high", "medium")
> gender <- c("female", "male")
>
> f(age, married, income, gender, ref=c("mid", "yes", "high", "male"))
> f(age, married, income, gender, ref=c("old", "yes", "medium", "male"))
>
> 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/336899
> Fax: +32/16/337015
> Web: http://www.med.kuleuven.ac.be/biostat/
> http://www.student.kuleuven.ac.be/~m0390867/dimitris.htm
>
>
> ----- Original Message -----
> From: "Jan Sabee" <jan.sabee@gmail.com>
> To: <R-help@stat.math.ethz.ch>
> Sent: Wednesday, April 20, 2005 10:46 AM
> Subject: [R] Put one random row dataset to first cell variable
>
> > Dear useR help,
> > This is below my toy dataset,
> >
> > age married income gender
> > young no low female
> > old yes low female
> > mid no high female
> > young yes high female
> > mid yes high female
> > mid no medium female
> > old no medium female
> > young yes medium female
> > mid yes low male
> > old yes low male
> > young no high male
> > old no high male
> > mid yes high male
> > young yes medium male
> > old yes medium male
> >
> > and I take one random row (young,no,low,female) then I make like
> > this
> >
> > age <- c("young","mid","old")
> > married <- c("no","yes")
> > income <- c("low","high","medium")
> > gender <- c("female","male")
> >
> > then I take one random row again (mid,yes,high,male), now
> >
> > age <- c("mid","young","old")
> > married <- c("yes","no")
> > income <- c("high","low","medium")
> > gender <- c("male","female")
> >
> > and etc, each I take one random row I put in the first cell in each
> > own variable.
> > Is this possible to make a simple function?
> >
> > Sincerely,
> > Jan Sabee
> >
> > ______________________________________________
> > R-help@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
> >
>
>



R-help@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 Received on Wed Apr 20 20:53:35 2005

This archive was generated by hypermail 2.1.8 : Fri 03 Mar 2006 - 03:31:17 EST