Natália,<div><br></div><div>Meu centavo na discussão, veja a função ellipse do pacote mixtools: <a href="http://www.inside-r.org/packages/cran/mixtools/docs/ellipse">http://www.inside-r.org/packages/cran/mixtools/docs/ellipse</a></div>
<div><br></div><div>Acho que serve para alguma coisa!</div><div><br></div><div>att,</div><div>FH<br><br><div class="gmail_quote">2013/2/22 Robert Iquiapaza <span dir="ltr"><<a href="mailto:rbali@ufmg.br" target="_blank">rbali@ufmg.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Com pequenas alterações<div><br></div><div><div><div>library(tseries) </div><div>y = log(AirPassengers) </div><div>radf=acf(diff(y))</div>
<div>li=-sd(diff(y))*1.65</div><div>ss=which(radf$acf<li | radf$acf>-li)</div>
<div>library(plotrix)</div><div>for (i in 2:length(ss))</div><div>draw.ellipse(radf$lag[ss[i]],ifelse(radf$acf[ss[i]]>0,-li,li),0.02,0.08,border="red")</div></div><div><br></div><div>Sds</div><div><div class="h5">
<br><div class="gmail_quote">
2013/2/22 Ivan Bezerra Allaman <<a href="mailto:ivanalaman@yahoo.com.br" target="_blank">ivanalaman@yahoo.com.br</a>>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div><div>> library(tseries)<br>
> y = log(AirPassengers)<br>
> acf(diff(y))<br>
><br>
> library(plotrix)<br>
> draw.ellipse(0.5,0.2,0.5,0.2)<br>
><br>
><br>
> (S,f,P)<br>
> Allaman<br>
><br>
</div></div>> _______________________________________________<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/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<br>
> mínimo reproduzível.<br>
<span><font color="#888888"><br>
<br>
<br>
--<br>
<br>
Natália da Silva Martins<br>
Bacharel em Estatística - Universidade Estadual de Maringá/ UEM<br>
Mestranda em Estatística e Experimentação Agronômica - ESALQ/ USP<br>
Contato: <a href="tel:%2819%29%208306-4743" value="+551983064743" target="_blank">(19) 8306-4743</a><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" 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>
</font></span></blockquote></div><br></div></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>