Extracting rows from a dataset

Hi A.K.,

Thank you for the example.

Here is one way:

dat[apply(dat, 1, function(x) x[1] == 1 & length(rle(x)$values) > 2), ]

See ?rle and ?apply for more details.

HTH,
Jorge.-



On Wed, May 30, 2012 at 5:45 PM, arun <> wrote:

Dear R help,
>
>I have a dataset with 1's and 0's.? Here, each row is the observation for an insect.? If the animal is present in light area at a particular time, response is 1 and if it is present in dark area, the response is 0.? I would like to do some formating on the data for analysis.? To be specific, I need the rows where the animal starts in the light (1), went to dark (0), and came back to light (1).? If the animal comes back multiple times into light, this should also be included.? ?
>
>
>dat<-read.table(text="
>min_0 min_1 min_2 min_3 min_4 min_5 min_6 min_7 min_8 min_9 min_10 min_11 min_12 min_13 min_14 min_15
>1???? 1???? 1???? 1?? 1??? 0?? 0??? 0??? 0??? 0???? 1???? 1???? 1??? 1????? 1??? 1
>1???? 1???? 1???? 1?? 1??? 1?? 1??? 1??? 1??? 1???? 1???? 1???? 1??? 1????? 1??? 1
>1???? 0???? 0???? 0?? 0??? 1?? 1??? 0??? 0??? 0???? 1???? 1???? 1??? 1????? 1??? 1
>1???? 1???? 1???? 1?? 1??? 1?? 1??? 1??? 1??? 1???? 0???? 0???? 0??? 0????? 0??? 0
>1???? 1???? 1???? 1?? 1??? 1?? 0??? 0??? 0??? 0???? 0???? 0???? 0??? 0????? 0??? 0
>1???? 0???? 1???? 0?? 0??? 1??? 0?? 1??? 1???? 1??? 0???? 0???? 0??? 0????? 1???? 1
>",sep="",header=T)?????????? ??? ??
>
>
>The output I would expect is:
>
>min_0 min_1 min_2 min_3 min_4 min_5 min_6 min_7 min_8 min_9 min_10 min_11 min_12 min_13 min_14 min_15
>1???? 1???? 1???? 1?? 1??? 0?? 0??? 0??? 0??? 0???? 1???? 1???? 1??? 1????? 1??? 1
>1???? 0???? 0???? 0?? 0??? 1?? 1??? 0??? 0??? 0???? 1???? 1???? 1??? 1????? 1??? 1
>1???? 0???? 1???? 0?? 0??? 1??? 0?? 1??? 1???? 1??? 0???? 0???? 0??? 0????? 1???? 1
>
>Any ideas on how to proceed?
>
>Thanking you,
>
>A.K.
>
>______________________________________________
>R-help at 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.
>