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