HI,
Try this:
dat1<-read.csv("matrixGinger.csv",sep="\t")
res<-apply(dat1,1,function(x) names(x)[x<0.0165])
res1<-t(sapply(res,`[`,seq(max(sapply(res,length)))))
res2<-data.frame(id=rownames(res1),res1)
dat2<-read.csv("Gingerdat.csv",sep="\t")
res3<-merge(dat2,res2,by="id",sort=FALSE))
res3[1:5,1:5]
# id status X1 X2 X3
#1 109530 0 X1537 X32255 X103309
#2 109398 0 X1537 X32255 X103309
#3 109494 0 X1537 X32255 X103309
#4 110077 0 X1537 X32255 X103309
#5 109601 0 X1537 X32255 X103309
A.K.
----- Original Message -----
From: ginger <bi...@igm.cnr.it>
To: r-help@r-project.org
Cc:
Sent: Friday, November 16, 2012 6:27 AM
Subject: [R] How to retrieve data from a matrix
I have a data set (data.txt) containing information on affection status
(1=affected; 0=not affected) for some subjects identified by an ID. Then I
have a sort of correlation matrix of the same subjects (matrix.txt). For
each affected subject in the data set I have to retrieve the IDs of
unaffected subjects from the matrix (if the condition “affected-unaffected
correlation<0.0165” is satisfied) and such IDs should be placed in new
columns of the data set on the affected subject corresponding row.
Does anybody can help me?
data.txt <http://r.789695.n4.nabble.com/file/n4649721/data.txt> matrix.txt
<http://r.789695.n4.nabble.com/file/n4649721/matrix.txt>
--
View this message in context:
http://r.789695.n4.nabble.com/How-to-retrieve-data-from-a-matrix-tp4649721.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
