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@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.
>

	[[alternative HTML version deleted]]

