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.