<div dir="ltr"><div>Nesse caso pode usar as posições <font face="monospace, monospace">ini </font>e <font face="monospace, monospace">fim </font>armazenadas no objeto <font face="monospace, monospace">res</font>.</div><div><br></div><div><font face="monospace, monospace">res$nivel <- sapply(seq(res), function(x) {</font></div><div><font face="monospace, monospace">     sel <- seq(res$ini[x], res$fim[x])</font></div><div><font face="monospace, monospace">     print(mean(dat[sel,2]))</font></div><div><font face="monospace, monospace">})</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace"><div>#   lengths values ini fim timeDiff nivel</div><div># 1       2      0   1   2  60 secs  29.0</div><div># 2       2      1   3   4  60 secs  30.5</div><div># 3       4      0   5   8 180 secs  29.0</div><div># 4       5      1   9  13 240 secs  33.2</div><div># 5       1      0  14  14   0 secs  25.0</div></font></div><div><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div></div>
<br><div class="gmail_quote">2015-04-24 10:08 GMT-04:00 SILVIA PATRICIA BARRETO SANTANA <span dir="ltr"><<a href="mailto:silpat@ufrb.edu.br" target="_blank">silpat@ufrb.edu.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="font-family:times new roman,new york,times,serif;font-size:12pt;color:#000000">Bom dia pessoal,<br><br>Dentro da mesma análise de dados (abaixo) é possível obter as médias de valores (Variável "Nivel<b></b>") utilizando o comando "rle" para cada execução do Status e guardar estas informações (lengths, values, timediff, meanNivel ) em outro banco?<br><br><font face="courier new,courier,monaco,monospace,sans-serif">### <code r><br>dat <- read.table(text='Horario              Nivel     Status<br>"<span><span>01/01/2011</span></span> 00:00"    29     0<br>"<span><span>01/01/2011</span></span> 00:01"    29     0<br>"<span><span>01/01/2011</span></span> 00:02"    30     1<br>"<span><span>01/01/2011</span></span> 00:03"    31     1<br>"<span><span>01/01/2011</span></span> 00:04"    29     0<br>"<span><span>01/01/2011</span></span> 00:05"    29     0<br>"<span><span>01/01/2011</span></span> 00:06"    29     0<br>"<span><span>01/01/2011</span></span> 00:07"    29     0<br>"<span><span>01/01/2011</span></span> 00:08"    30     1<br>"<span><span>01/01/2011</span></span> 00:09"    32     1<br>"<span><span>01/01/2011</span></span> 00:10"    34     1<br>"<span><span>01/01/2011</span></span> 00:11"    35     1<br>"<span><span>01/01/2011</span></span> 00:12"    35     1<br>"<span><span>01/01/2011</span></span> 00:13"    25     0', head=T, <a href="http://as.is" target="_blank">as.is</a>=T)<br><br>dat$Horario <- as.POSIXlt(dat$Horario, format = '%d/%m/%Y %H:%M')<br>head(dat)<br><br>res <- do.call(data.frame, rle(dat$Status))<br>n <- nrow(res)<br>res$ini <- c(1, cumsum(res$lengths[-n])+1)<br>res$fim <- cumsum(res$lengths)<br>res$timeDiff <- with(res, dat[fim,1]-dat[ini,1])<br><br>res<br><br><br>#   lengths values ini fim timeDiff<br># 1       2      0   1   2  60 secs<br># 2       2      1   3   4  60 secs<br># 3       4      0   5   8 180 secs<br># 4       5      1   9  13 240 secs<br># 5       1      0  14  14   0 secs</font><br><br><br><br>Grata,<br><br>Silvia Patricia<br><br></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div></div>