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]] ______________________________________________ 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.
