<html><head><style type='text/css'>p { margin: 0; }</style></head><body><div style='font-family: times new roman,new york,times,serif; font-size: 12pt; color: #000000'>Bom dia pessoal.<br><br>Tenho pouca experiência em programação no R e qualquer ajuda será bem vinda, por isso já começo agradecendo.<br>Com este banco de dados (abaixo) gostaria de obter a seguinte informação:<br><br>Horario Nivel Status<br><span class="Object" id="OBJ_PREFIX_DWT269_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT483_com_zimbra_date">01/01/2011</span></span> 00:00 29 0<br><span class="Object" id="OBJ_PREFIX_DWT270_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT484_com_zimbra_date">01/01/2011</span></span> 00:01 29 0<br><span style="background-color: rgb(255, 255, 153);"><span class="Object" id="OBJ_PREFIX_DWT271_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT485_com_zimbra_date">01/01/2011</span></span> 00:02 30 1<br><span class="Object" id="OBJ_PREFIX_DWT272_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT486_com_zimbra_date">01/01/2011</span></span> 00:03 31 1</span><br><span class="Object" id="OBJ_PREFIX_DWT273_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT487_com_zimbra_date">01/01/2011</span></span> 00:04 29 0<br><span class="Object" id="OBJ_PREFIX_DWT274_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT488_com_zimbra_date">01/01/2011</span></span> 00:05 29 0<br><span class="Object" id="OBJ_PREFIX_DWT275_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT489_com_zimbra_date">01/01/2011</span></span> 00:06 29 0<br><span class="Object" id="OBJ_PREFIX_DWT276_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT490_com_zimbra_date">01/01/2011</span></span> 00:07 29 0<br><span style="background-color: rgb(255, 255, 153);"><span class="Object" id="OBJ_PREFIX_DWT277_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT491_com_zimbra_date">01/01/2011</span></span> 00:08 30 1<br><span class="Object" id="OBJ_PREFIX_DWT278_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT492_com_zimbra_date">01/01/2011</span></span> 00:09 32 1<br><span class="Object" id="OBJ_PREFIX_DWT279_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT493_com_zimbra_date">01/01/2011</span></span> 00:10 34 1<br><span class="Object" id="OBJ_PREFIX_DWT280_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT494_com_zimbra_date">01/01/2011</span></span> 00:11 35 1<br><span class="Object" id="OBJ_PREFIX_DWT281_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT495_com_zimbra_date">01/01/2011</span></span> 00:12 35 1</span><br><span class="Object" id="OBJ_PREFIX_DWT282_com_zimbra_date"><span class="Object" id="OBJ_PREFIX_DWT496_com_zimbra_date">01/01/2011</span></span> 00:13 25 0<br><br>############################<br>Rotina<br><br>###########################<br><br>## Leitura do banco de dados<br><br>Banco_micro<- read.delim("F:/Micro_testeb2.txt", <br>header=TRUE, na.strings="NA", dec=",")<br><br><br>## Variável tempo<br><br>Banco_micro$Horario<br>Tempo <- strptime(Banco_micro$Horario, format = '%d/%m/%Y %H:%M')<br>Tempo <- as.POSIXlt(Tempo)<br><br><br>## Rotina para obtenção do intervalo de tempo entre as falhas<br><br>n<-length(Tempo)<br><br> <br> for (i in 1:n)<br> { <br> <br> if (Banco_micro$Status[i]==1)<br> break<br> Tempo_ini<-Tempo[i+1]<br> <br>}<br> print(Tempo_ini)<br> <br> for (j in (i+1):n)<br><br> {<br> <br> if (Banco_micro$Status[j]==0) <br> break <br><br> Tempo_fim<-Tempo[j]<br> }<br> print(Tempo_fim) <br> <br>TempoF<-difftime(Tempo_fim,Tempo_ini,units='mins')<br><br>TempoF<-as.numeric(TempoF, units="mins")<br><br>print(TempoF) <br><br>#########################<br><br>A rotina deverá ser capaz de encontrar os intervalos de tempo em que a variavel "Status" permanence no valor 1.<br>A rotina abaixo encontra o primeiro intervalo e pára. <br><br><br>O que estou fazendo errado?<br><br><br>Obrigada<br></div></body></html>