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

[Dimitris Rizopoulos]

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
>