Thanks, you guys are correct, I had different data.
But why I get length 5 and 6, should only be 1 to 3.
Full R code :
vec <- c(1, 2, 3, 4, 5, 6, 7, 8, 13, 1, 2, 3, 5, 7, 8, 10, 12, 13, 14,
15, 1, 2, 3, 5, 6, 10, 12, 13, 1, 2, 3, 4, 5, 6, 7, 12, 13, 14,
15, 1, 2, 3, 6, 9, 10, 11, 13, 14, 1, 7, 10, 13, 1, 2, 3, 4,
6, 7, 9, 11, 14, 1, 2, 3, 5, 9, 10, 11, 12, 14, 1, 2, 3, 4, 1,
2, 3, 4, 11, 12, 14, 1, 2, 3, 4, 8, 11, 12, 1, 2, 3, 4, 5, 7,
8, 9, 11, 12, 15, 3, 14, 1, 2, 3, 6, 10, 11, 13, 14, 1, 2, 3,
4, 5, 6, 8, 9, 10, 11, 12, 14, 1, 2, 3, 4, 9, 13, 15, 1, 2, 3,
4, 6, 8, 9, 11, 12, 1, 2, 3, 7, 8, 9, 14, 1, 2, 3, 12, 1, 2,
3, 4, 5, 10, 14, 1, 2, 3, 4, 5, 7, 8, 12, 13, 14, 1, 2, 3, 10,
1, 3, 1, 2, 3, 5, 7, 8, 10, 11, 13, 14, 1, 2, 3, 4, 5, 8, 9,
11, 12, 15, 1, 2, 3, 4, 7, 9, 10, 13, 1, 2, 3, 4, 5, 7, 10, 11,
15, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 1, 2, 3, 6, 7,
8, 9, 10, 12, 13, 14, 15, 1, 2, 3, 4, 7, 1, 2, 3, 5, 8, 13, 1,
2, 3, 5, 8, 11, 15, 1, 2, 3, 1, 2, 3, 10, 1, 2, 3, 4, 7, 8, 9,
10, 11, 12, 14, 1, 3, 9, 11, 13, 14, 1, 2, 3, 4, 5, 7, 8, 9,
10, 11, 12, 13, 14, 15, 1, 2, 3, 4, 5, 13, 14, 15, 1, 2, 3, 11,
13, 14, 1, 2, 3, 8, 1, 2, 3, 4, 5, 6, 8, 11, 12, 14, 1, 2, 3,
5, 6, 9, 10, 11, 12, 15, 1, 2, 3, 4, 5, 9, 11, 12, 13, 1, 2,
3, 4, 5, 13, 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15,
1, 2, 3, 7, 8, 9, 1, 2, 3, 5, 7, 8, 9, 10, 12, 14, 15, 1, 2,
3, 4, 5, 6, 8, 14, 1, 2, 3, 1, 2, 3, 10, 11, 13, 1, 2, 3, 4,
9, 10, 12, 13, 14, 1, 2, 3, 4, 5, 6, 12, 1, 2, 3, 4, 5, 6, 7,
10, 12, 13, 14, 15, 1, 2, 3, 6, 10, 14, 1, 2, 3, 4, 6, 7, 8,
9, 10, 11, 13, 14, 1, 2, 3, 1, 2, 3, 4, 7, 8, 10, 1, 2, 3, 7,
8, 11, 13, 15, 1, 2, 3, 4, 7, 8, 14, 15, 1, 2, 3, 4, 14, 1, 2,
3, 4, 6, 7, 10, 12, 1, 2, 3, 5, 7, 8, 11, 13, 14, 15, 1, 2, 3,
4, 1, 2, 3, 6, 7, 9, 11, 12, 13, 14, 1, 2, 3, 7, 11, 12, 1, 2,
3, 5, 6, 8, 9, 10, 12, 15, 1, 2, 3, 5, 6, 8, 9, 11, 1, 2, 3,
7, 8, 11, 13, 14, 15, 1, 2, 3, 4, 10, 12, 14, 1, 2, 3, 11, 12,
13, 15, 1, 2, 3, 5, 7, 10, 11, 12, 13, 14, 15, 1, 3, 10, 1, 2,
3, 1, 2, 3, 8, 10, 15, 1, 2, 3, 4, 7, 10, 12, 14, 1, 2, 3, 9,
10, 11, 1, 2, 3, 6, 9, 10, 15, 1, 9, 14, 1, 2, 3, 7, 10, 14,
1, 2, 3, 4, 7, 8, 9, 10, 11, 13, 15, 1, 2, 3, 5, 6, 7, 8, 9,
11, 12, 13, 14, 15, 1, 2, 3, 6, 8, 11, 12, 1, 7, 1, 2, 3, 8,
13, 15, 1, 2, 3, 4, 8, 9, 11, 1, 2, 3, 4, 7, 13, 14, 1, 2, 3,
5, 6, 9, 1, 3, 7, 12, 13, 15, 1, 2, 3, 5, 6, 8, 10, 1, 3, 5,
7, 8, 10, 11, 1, 2, 3, 5, 6, 11, 14, 1, 2, 3, 4, 9, 10, 11, 13,
14, 1, 2, 3, 4, 6, 9, 14, 15, 1, 2, 3, 11, 1, 2, 3, 4, 5, 7,
11, 13, 14, 15, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 14, 1, 2, 3, 4,
5, 6, 7, 9, 10, 11, 12, 14, 1, 4, 7, 1, 2, 3, 5, 6, 8, 9, 10,
12, 13, 15, 1, 2, 3, 4, 5, 8, 10, 12, 13)
a <- vec %in% c(1, 2, 3)
b <- rle(a)
cc <- data.frame(b[[1]], b[[2]])
names(cc) <- c("leng", 'val')
dd <- subset(cc, val ==TRUE )
table(dd)
> table(dd)
val
leng TRUE
1 5
2 4
3 81
5 1
6 4
btw,
> length(vec)
[1] 762
So, the tally should add up to that if correct.
-M
On Sat, Jul 20, 2013 at 1:41 PM, John Kane <jrkrid...@inbox.com> wrote:
> Beats me. I get:
> table(dd)
> val
> leng TRUE
> 1 3
> 3 12
>
> What does dd look like. In my case I get this where the first column is the
> row number
> dd
> leng val
> 1 3 TRUE
> 3 3 TRUE
> 5 3 TRUE
> 7 3 TRUE
> 9 3 TRUE
> 11 1 TRUE
> 13 3 TRUE
> 15 3 TRUE
> 17 3 TRUE
> 19 3 TRUE
> 21 3 TRUE
> 23 3 TRUE
> 25 1 TRUE
> 27 3 TRUE
> 29 1 TRUE
>
> John Kane
> Kingston ON Canada
>
>
>> -----Original Message-----
>> From: tmrs...@gmail.com
>> Sent: Sat, 20 Jul 2013 13:11:47 -0400
>> To: jrkrid...@inbox.com
>> Subject: Re: [R] How to search for a sequence(and its combination) inside
>> a vector?
>>
>> Thanks John.
>>
>> Why do I get length of 5 and 6? I thought I am only tallying up 1 to 3?
>>> table(dd)
>> val
>> leng TRUE
>> 1 5
>> 2 4
>> 3 81
>> 5 1
>> 6 4
>>
>> -M
>>
>> On Sat, Jul 20, 2013 at 12:52 PM, John Kane <jrkrid...@inbox.com> wrote:
>>> Taking Berend's example a bit further, this seems to work
>>>
>>> If you use str(b) you will see it is a list
>>>
>>> b <- rle(a)
>>> cc <- data.frame(b[[1]], b[[2]])
>>> names(cc) <- c("leng", 'val')
>>> dd <- subset(cc, val ==TRUE )
>>> table(dd)
>>>
>>> John Kane
>>> Kingston ON Canada
>>>
>>>
>>>> -----Original Message-----
>>>> From: tmrs...@gmail.com
>>>> Sent: Sat, 20 Jul 2013 12:36:55 -0400
>>>> To: b...@xs4all.nl
>>>> Subject: Re: [R] How to search for a sequence(and its combination)
>>>> inside
>>>> a vector?
>>>>
>>>> Hi Berend
>>>> I am looking for a table,
>>>> # of times one element (out of 1, 2, 3) showed up, two elements, and
>>>> all
>>>> three.
>>>>
>>>> I am trying, don't know if this works:
>>>>
>>>>> aa <- rle(a)
>>>>> b <- aa$lengths[aa$values]
>>>>> table(b)
>>>> b
>>>> 1 3
>>>> 3 12
>>>>
>>>> Mike
>>>>
>>>>
>>>>
>>>> On Sat, Jul 20, 2013 at 12:24 PM, Berend Hasselman <b...@xs4all.nl>
>>>> wrote:
>>>>>
>>>>> On 20-07-2013, at 18:05, C W <tmrs...@gmail.com> wrote:
>>>>>
>>>>>> Hi R list,
>>>>>>
>>>>>> I have a sequence repeating 1:15 . Some numbers are deleted. I want
>>>>>> to find how many times 1, 2, 3 appeared.
>>>>>> Basically, I want to "grab" the beginning of the sequence and tally
>>>>>> it
>>>>>> up.
>>>>>>
>>>>>> R code:
>>>>>>
>>>>>>> vec <- c(1, 2, 3, 4, 5, 6, 7, 8, 13, 1, 2, 3, 5, 7, 8, 10, 12, 13,
>>>>>>> 14,
>>>>>> 15, 1, 2, 3, 5, 6, 10, 12, 13, 1, 2, 3, 4, 5, 6, 7, 12, 13, 14,
>>>>>> 15, 1, 2, 3, 6, 9, 10, 11, 13, 14, 1, 7, 10, 13, 1, 2, 3, 4,
>>>>>> 6, 7, 9, 11, 14, 1, 2, 3, 5, 9, 10, 11, 12, 14, 1, 2, 3, 4, 1,
>>>>>> 2, 3, 4, 11, 12, 14, 1, 2, 3, 4, 8, 11, 12, 1, 2, 3, 4, 5, 7,
>>>>>> 8, 9, 11, 12, 15, 3, 14, 1, 2, 3, 6, 10, 11, 13, 14, 1)
>>>>>>
>>>>>>> a <- vec %in% c(1, 2, 3)
>>>>>>> a
>>>>>> [1] TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE TRUE
>>>>>> TRUE TRUE FALSE FALSE
>>>>>> [15] FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE FALSE
>>>>>> FALSE FALSE FALSE FALSE
>>>>>> [29] TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
>>>>>> FALSE TRUE TRUE TRUE
>>>>>> [43] FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE
>>>>>> TRUE TRUE TRUE FALSE
>>>>>> [57] FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE
>>>>>> FALSE FALSE FALSE FALSE
>>>>>> [71] TRUE TRUE TRUE FALSE TRUE TRUE TRUE FALSE FALSE FALSE
>>>>>> FALSE TRUE TRUE TRUE
>>>>>> [85] FALSE FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE
>>>>>> FALSE FALSE FALSE FALSE
>>>>>> [99] FALSE TRUE FALSE TRUE TRUE TRUE FALSE FALSE FALSE FALSE
>>>>>> FALSE
>>>>>> TRUE
>>>>>>
>>>>>>> rle(a)
>>>>>> Run Length Encoding
>>>>>> lengths: int [1:29] 3 6 3 8 3 5 3 8 3 6 ...
>>>>>> values : logi [1:29] TRUE FALSE TRUE FALSE TRUE FALSE ...
>>>>>>
>>>>>> What should I do after this?
>>>>>>
>>>>>
>>>>> Well how about
>>>>>
>>>>> sum(a)
>>>>>
>>>>> or
>>>>>
>>>>> b <- rle(a)
>>>>> sum(b$lengths[b$values])
>>>>>
>>>>> Berend
>>>>>
>>>>>> Thanks,
>>>>>> Mike
>>>>>>
>>>>>> ______________________________________________
>>>>>> 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.
>>>
>>> ____________________________________________________________
>>> Receive Notifications of Incoming Messages
>>> Easily monitor multiple email accounts & access them with a click.
>>> Visit http://www.inbox.com/notifier and check it out!
>>>
>>>
>
> ____________________________________________________________
> FREE ONLINE PHOTOSHARING - Share your photos online with your friends and
> family!
> Visit http://www.inbox.com/photosharing to find out more!
>
> ______________________________________________
> 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.
