On 2020-08-14 15:56 -0700, Bert Gunter wrote:
| On Fri, Aug 14, 2020 at 3:21 PM Rasmus Liland wrote:
| |
| | As to Bert's reply, I am a loss as 
| | how to use the lengths list in 
| | rle(rap$Speed) for this ...
| 
| I showed how in my message for one 
| interpretation of the query. I would 
| need further clarification for other 
| interpretations, but note that in my 
| reply,   rep(z|9, z)  gives a logical 
| vector in which all rows in which a 
| speed of 0 appears in a run of 10 or 
| greater (as no other speed would be 
| replicated) is TRUE, FALSE otherwise.  
| ( z = $lengths).  I would agree that 
| whether this is a good starting point 
| for other interpretations remains to 
| be seen.

Yes, the time cols might be omitted to 
complete this.

        z <- rle(rap$Speed)$lengths
        rap[rep(x=z<10, times=z),]

This is not bad.

/Rasmus

P.S. Adding this back to the list (this 
ends up in a searchable archive, and so 
on and so fourth). 

Attachment: signature.asc
Description: PGP signature

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

Reply via email to