--- Begin Message ---
I think this is proper.
a <- c(1, 2, 3, 3, 4, 4, 5, 6, 1, 2, 2, 3, 1, 2, 1, 2, 3, 3, 4, 5, 1, 2,
3, 4)
b <- c(1, 5, 8, 9, 14, 20, 3, 10, 12, 6, 16, 7, 11, 13, 17, 18, 2, 4,
15, 19)
ref <- 1
for (i in 2:length(a)) {
if (a[i]!=a[i-1]) ref <- c(ref, ref[length(ref)]+1)
if (a[i]==a[i-1]) ref <- c(ref, ref[length(ref)])
}
a2 <-b[ref]
a1 <- c(1, 5, 8, 8, 9, 9, 14, 20, 3, 10, 10, 12, 6, 16, 7, 11, 13, 13,
17, 18, 2, 4, 15, 19)
a1=¢
-----Mensagem original-----
De: r-help-boun...@r-project.org [mailto:r-help-boun...@r-project.org]
Em nome de Duncan Murdoch
Enviada em: quarta-feira, 1 de junho de 2011 15:51
Para: Lisa
Cc: r-help@r-project.org
Assunto: Re: [R] Recode numbers
(The attributions are a little messed up here:)
>> I have two sets of numbers that look like
>>> a<- c(1, 2, 3, 3, 4, 4, 5, 6, 1, 2, 2, 3, 1, 2, 1, 2, 3, 3, 4, 5, 1,
2, 3,
>>> 4)
>>>
>>> b<- c(1, 5, 8, 9, 14, 20, 3, 10, 12, 6, 16, 7, 11, 13, 17, 18, 2, 4,
15,
>>> 19)
>>>
>>> I just want to use "b" to encode "a" so that "a" looks like
>>>
>>> a1<- c(1, 5, 8, 8, 9, 9, 14, 20, 3, 10, 10, 12, 6, 16, 7, 11, 13,
13, 17,
>>> 18, 2, 4, 15, 19)
>>>
>>> Does anyone have a suggestion how to deal with this? Thank you in
advance.
>>>
>>
>> is a1 = b[a] what you are looking for?
>>
>> HTH
>>
>> Pete
>
> Thank you for your help, Pete. I tried b[a], but it is not a1.
I think you'll need to explain the rule used for a1[9], a1[10], etc.
Duncan Murdoch
______________________________________________
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.
--- End Message ---