Thanks all of you!
But my next question is, how to improve R programming skills? I never
have time in improving it but I feel I need to.
Regards,
W
On 4/11/07, Seth Falcon [EMAIL PROTECTED] wrote:
Weiwei Shi [EMAIL PROTECTED] writes:
I forgot to add my bad solution here:
reverseList -
Hi, there:
I am wondering if there is a quick way to reverse a list like this:
t0 - list(a=1, b=1, c=2, d=1)
reverst t0 to t1
t1
$`1`
[1] a b d
$`2`
[1] c
thanks.
--
Weiwei Shi, Ph.D
Research Scientist
GeneGO, Inc.
Did you always know?
No, I did not. But I believed...
---Matrix III
Weiwei Shi wrote:
I am wondering if there is a quick way to reverse a list like this:
t0 - list(a=1, b=1, c=2, d=1)
reverst t0 to t1
t1
$`1`
[1] a b d
$`2`
[1] c
t1 - tapply(unlist(t0),unlist(t0),function(x){names(x)})
works for your example. Not clear how ``general'' an
Here is a minor shortening of that solution:
tapply(t0, unlist(t0), names)
On 4/11/07, [EMAIL PROTECTED] [EMAIL PROTECTED] wrote:
Weiwei Shi wrote:
I am wondering if there is a quick way to reverse a list like this:
t0 - list(a=1, b=1, c=2, d=1)
reverst t0 to t1
t1
$`1`
I forgot to add my bad solution here:
reverseList - function(xlist){
blist - xlist[!is.na(xlist)]
x0 - unlist(blist)
l0 - length(blist)
d0 - as.data.frame(matrix(0, l0, 3))
d0[,1] - names(x0)
d0[,2] - x0
# unique llid
llid - unique(d0[,2])
outlist - list( )
for (i in
I am wondering if there is a quick way to reverse a list . . . .
Did you try rev()?
Best, Peter
__
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
try this:
x - cbind(unlist(t0), names(t0))
x
[,1] [,2]
a 1 a
b 1 b
c 2 c
d 1 d
split(x[,2], x[,1])
$`1`
a b d
a b d
$`2`
c
c
On 4/11/07, Weiwei Shi [EMAIL PROTECTED] wrote:
Hi, there:
I am wondering if there is a quick way to reverse a list like this:
t0 - list(a=1, b=1,
thanks. split() is what I needed.
On 4/11/07, jim holtman [EMAIL PROTECTED] wrote:
try this:
x - cbind(unlist(t0), names(t0))
x
[,1] [,2]
a 1 a
b 1 b
c 2 c
d 1 d
split(x[,2], x[,1])
$`1`
a b d
a b d
$`2`
c
c
On 4/11/07, Weiwei Shi [EMAIL PROTECTED] wrote:
Weiwei Shi [EMAIL PROTECTED] writes:
I forgot to add my bad solution here:
reverseList - function(xlist){
blist - xlist[!is.na(xlist)]
x0 - unlist(blist)
l0 - length(blist)
d0 - as.data.frame(matrix(0, l0, 3))
d0[,1] - names(x0)
d0[,2] - x0
There is a helper function in