<div dir="ltr">Você pode ter alguns problemas com esse método:<div><br><div>1) se o x[1] for NA?</div><div>2) se o x[n] for NA?</div><div>3) se você tiver dois NA's seguidos?</div></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 14 de abril de 2016 16:40, Felipe <span dir="ltr"><<a href="mailto:felipe.e.barletta@gmail.com" target="_blank">felipe.e.barletta@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Prezados,<br>
<br>
Estou precisando calcular a média entre dois valore quando NA, ou seja,, quando tenho, por exemplo, um NA na posição 10 de um vetor, quero substituir<br>
o NA pela média dos valores das posições 9 e 10, mean(c(x[i-1],x[i+1]).<br>
<br>
Tentei usar ifelse(), mas não funcionou:<br>
<br>
####<br>
set.seed(9999)<br>
x <- rnorm(500,10,5)<br>
y  <- sample(1:500,50,replace=FALSE)<br>
x[y] <- NA<br>
<br>
media <- function(x)<br>
{<br>
for (i in 2:length(x))<br>
   {<br>
       x[i] <- ifelse(<a href="http://is.na" rel="noreferrer" target="_blank">is.na</a>(x[i]),mean(c(x[i-1],x[i+1])),x[i])<br>
<br>
    }<br>
}<br>
sapply(x, media)<br>
<br>
_______________________________________________<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" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e fornea cdigo mnimo reproduzvel.</blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div>Rafael Garcia Cunha</div><div><br></div><div>YNWA</div><div><br></div></div>
</div>