Or:
with(rle(signData), lengths[values == 1])
On Tue, Jul 7, 2009 at 8:26 AM, Henrique Dallazuanna <www...@gmail.com>wrote:
> Try this:
>
> rle(signData)$lengths[rle(signData)$values == 1]
>
>
> On Tue, Jul 7, 2009 at 8:11 AM, aledanda <danda.ga...@gmail.com> wrote:
>
>>
>> Hallo,
>>
>> I have an other problem, I have this vector signData with an alternation
>> of
>> 1 and -1 that corrispond to the duration of two different percepts. I
>> extracted the durations like this:
>>
>> signData<- scan("dataTR10.txt")
>> dur<-rle(signData)$length
>>
>> Now I would like to extract only the positive duration, e.g.
>>
>> signData <- c(1,1,1,1,-1,-1,-1,1,1,-1,-1)
>> posduration <- c(4,2)
>>
>> I think I should use rle in a nested way, this is what I tried but it
>> doesn't work:
>>
>> posduration<- rle(signData[=1])$length
>>
>> Could you please help me?
>>
>> Thanks a lot, this forum is extremely useful.
>>
>> Ale
>> --
>> View this message in context:
>> http://www.nabble.com/rle-tp24371336p24371336.html
>> Sent from the R help mailing list archive at Nabble.com.
>>
>> ______________________________________________
>> 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.
>>
>
>
>
> --
> Henrique Dallazuanna
> Curitiba-Paraná-Brasil
> 25° 25' 40" S 49° 16' 22" O
>
--
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O
[[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.
