a unica coisa  q eu mudaria e' a expressao do divisor.... mas nada relevante<div><br></div><div>cmean <- function(x) cumsum(x)/seq_along(x)</div><div><br></div><div><br></div><div class="gmail_extra"><br><br><div class="gmail_quote">

2012/12/17 Leonard de Assis <span dir="ltr"><<a href="mailto:assis.leonard@gmail.com" target="_blank">assis.leonard@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

Existe pronto um comando estilo cumsum que retorne ao invés de soma, a média?<br>
<br>
exemplo:<br>
<br>
set.seed(1)<br>
op <- par(mfrow = c(2, 2))<br>
x <-rnorm(500)<br>
y <- cumsum(x)<br>
<br>
ts.plot(x)<br>
ts.plot(y)<br>
<br>
# para eu fazer o que quero, tenho que fazer:<br>
y.cmean <-cumsum(x)/(1:length(x))<br>
ts.plot(y.cmean)<br>
par(op)<br>
<br>
<br>
existe algum jeito mais fácil?<span class="HOEnZb"><font color="#888888"><br>
<br>
-- <br>
[]s<br>
Leonard de Assis<br>
<a href="http://about.me/ldeassis" target="_blank">http://about.me/ldeassis</a><br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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/<u></u>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-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</font></span></blockquote></div><br></div>