Oops -- neglected to cc the list. Also note the correction at the end, changing "starts" to "begins".
-- Bert On Mon, Jun 20, 2016 at 2:33 PM, Bert Gunter <bgunter.4...@gmail.com> wrote: Thanks for the reproducible example -- it made your meaning clear. This is the sort of thing for which rle() is useful. If you go through the following step by step it should be clear what's going on. z<-c(7,223,42,55,30,25,61,5,70) x <- 40 rl <- rle( z < x) ## runs of TRUE and FALSE (logicals) ## Note that you may wish to change this to <= lens <- rl$lengths ## lengths of runs ends <- cumsum(lens) ## indices where the runs end begins <- c(1,ends[-length(ends)]+1) ## indices where the runs begin ## now use logical indexing to pick out only the runs meeting the condition that z < x vals <- rl$values begins[vals] ends[vals] Note: This is the sort of query for which someone cleverer than I may have a simpler or more efficient solution. If so, please post it so I and others can learn from it. Cheers, Bert Bert Gunter "The trouble with having an open mind is that people keep coming along and sticking things into it." -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) > > On Mon, Jun 20, 2016 at 11:58 AM, C Lin <bac...@hotmail.com> wrote: >> Hello, >> >> Can someone help me with this? >> >> I am trying to find the start and end positions in a vector where numbers >> less than x is surrounded by number(s) greater than x. >> For example: >> try = c(7,223,42,55,30,25,61,5,70) >> x=40 >> >> The desired output would be: >> >>> loc >> start end >> 1 5 6 >> 2 8 8 >> >> So the numbers I am interested in finding is: 30, 25 and the start= 5 and >> end = 6 >> Also, 5 with the start=8 and end = 8 >> >> Thank you in advance for your help. >> >> ______________________________________________ >> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see >> 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 -- To UNSUBSCRIBE and more, see 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.
