[R-br] Obtenção de intervalos de tempos

[SILVIA PATRICIA BARRETO SANTANA]

Bom dia pessoal. 

Tenho pouca experiência em programação no R e qualquer ajuda será bem vinda, por isso já começo agradecendo. 
Com este banco de dados (abaixo) gostaria de obter a seguinte informação: 

Horario Nivel Status 
01/01/2011 00:00 29 0 
01/01/2011 00:01 29 0 
01/01/2011 00:02 30 1 
01/01/2011 00:03 31 1 
01/01/2011 00:04 29 0 
01/01/2011 00:05 29 0 
01/01/2011 00:06 29 0 
01/01/2011 00:07 29 0 
01/01/2011 00:08 30 1 
01/01/2011 00:09 32 1 
01/01/2011 00:10 34 1 
01/01/2011 00:11 35 1 
01/01/2011 00:12 35 1 
01/01/2011 00:13 25 0 

############################ 
Rotina 

########################### 

## Leitura do banco de dados 

Banco_micro<- read.delim("F:/Micro_testeb2.txt", 
header=TRUE, na.strings="NA", dec=",") 


## Variável tempo 

Banco_micro$Horario 
Tempo <- strptime(Banco_micro$Horario, format = '%d/%m/%Y %H:%M') 
Tempo <- as.POSIXlt(Tempo) 


## Rotina para obtenção do intervalo de tempo entre as falhas 

n<-length(Tempo) 


for (i in 1:n) 
{ 

if (Banco_micro$Status[i]==1) 
break 
Tempo_ini<-Tempo[i+1] 

} 
print(Tempo_ini) 

for (j in (i+1):n) 

{ 

if (Banco_micro$Status[j]==0) 
break 

Tempo_fim<-Tempo[j] 
} 
print(Tempo_fim) 

TempoF<-difftime(Tempo_fim,Tempo_ini,units='mins') 

TempoF<-as.numeric(TempoF, units="mins") 

print(TempoF) 

######################### 

A rotina deverá ser capaz de encontrar os intervalos de tempo em que a variavel "Status" permanence no valor 1. 
A rotina abaixo encontra o primeiro intervalo e pára. 


O que estou fazendo errado? 


Obrigada 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150423/4c11cfe8/attachment.html>