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

[Jan Sabee]

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

Jan Sabee

On 4/20/05, Dimitris Rizopoulos <dimitris.rizopoulos at 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 at gmail.com>
> To: <R-help at 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 at 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
> >
> 
>