[R] Put one random row dataset to first cell variable
Dimitris Rizopoulos
dimitris.rizopoulos at med.kuleuven.ac.be
Wed Apr 20 11:26:26 CEST 2005
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
>
More information about the R-help
mailing list