<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div><span>Oi Walmes!</span></div><div><br><span></span></div><div><span>Exatamente! Já haviam me alertando aqui no grupo quanto a isso. O boxplot por default usa 1.5, mais eu sempre altero para 2.5, e esqueci de alterar no código que enviei. O valor de 2.5 foi um concenso que cheguei junto com o Faria, achamos mais flexível. </span></div><div><br><span></span></div><div><span>(S,f,P)</span></div><div><span>Allaman<br></span></div><div><br><span></span></div><div><span></span></div><div> </div><div style="background-color:transparent;" align="center"><font style="background-color:transparent;" face="comic sans ms" size="2"><font size="1"><b><br></b></font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace,
sans-serif" size="2">\begin{signature}</font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2"><<>>=</font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Prof. Dr. Ivan Bezerra Allaman</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Universidade Estadual de Santa Cruz</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Departamento de Ciências Exatas e Tecnológicas</font></div><div style="text-align:left;background-color:transparent;"
align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Ilhéus/BA - Brasil</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Fone: +55 73 3680-5596</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com</font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">@</font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif"
size="2">\end{signature}</font></font></div><div><br></div> <div style="font-family: arial, helvetica, sans-serif; font-size: 12pt;"> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div dir="ltr"> <font face="Arial" size="2"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Walmes Zeviani <walmeszeviani@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br; Ivan Bezerra Allaman <ivanalaman@yahoo.com.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Terça-feira, 7 de Agosto de 2012 11:02<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] Eliminar outliers de uma planilha.<br> </font> </div> <br><div id="yiv2000611750"><font face="trebuchet ms,sans-serif">Ivan,<br><br>Ao contrario do que eu também pensava, a boxplot() não usa a quantile() para encontrar os quantis, ela usa a fivenum(). Para grandes amostras não
dá diferença mas para amostras pequenas dá. Você usou 2.5 mas o boxplot() usa 1.5. Eu fiz uma função também, veja<br>
<br><span style="font-family:courier new, monospace;">set.seed(12345)</span><br style="font-family:courier new, monospace;"><span style="font-family:courier new, monospace;">y <- rbeta(100, 1, 5)</span><br style="font-family:courier new, monospace;">
<span style="font-family:courier new, monospace;">boxplot(y)</span><br style="font-family:courier new, monospace;"><span style="font-family:courier new, monospace;">abline(h=fivenum(y))</span><br style="font-family:courier new, monospace;">
<span style="font-family:courier new, monospace;">x <- gl(4, 25)</span><br style="font-family:courier new, monospace;"><span style="font-family:courier new, monospace;">bp <- boxplot(y~x)</span><br style="font-family:courier new, monospace;">
<span style="font-family:courier new, monospace;">bp</span><br style="font-family:courier new, monospace;"><span style="font-family:courier new, monospace;">bp$out</span><br style="font-family:courier new, monospace;"><span style="font-family:courier new, monospace;">bp$group</span><br style="font-family:courier new, monospace;">
<br style="font-family:courier new, monospace;"><span style="font-family:courier new, monospace;">f <- function(x){</span><br style="font-family:courier new, monospace;"><span style="font-family:courier new, monospace;"> qrtl <- fivenum(x)[c(2,4)]</span><br style="font-family:courier new, monospace;">
<span style="font-family:courier new, monospace;"> iqr <- diff(qrtl)</span><br style="font-family:courier new, monospace;"><span style="font-family:courier new, monospace;"> limt <- qrtl+c(-1,1)*1.5*iqr</span><br style="font-family:courier new, monospace;">
<span style="font-family:courier new, monospace;"> findInterval(x, limt)-1</span><br style="font-family:courier new, monospace;"><span style="font-family:courier new, monospace;">}</span><br style="font-family:courier new, monospace;">
<br style="font-family:courier new, monospace;"><span style="font-family:courier new, monospace;">f(y)</span><br style="font-family:courier new, monospace;"><br style="font-family:courier new, monospace;"><span style="font-family:courier new, monospace;">tapply(y, x, f)</span><br style="font-family:courier new, monospace;">
<br>À disposição.<br>Walmes.<br><br clear="all"></font><span style="font-family:trebuchet ms, sans-serif;">==========================================================================</span><br style="font-family:trebuchet ms, sans-serif;">
<span style="font-family:trebuchet ms, sans-serif;">Walmes Marques Zeviani</span><br style="font-family:trebuchet ms, sans-serif;"><span style="font-family:trebuchet ms, sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family:trebuchet ms, sans-serif;">
<span style="font-family:trebuchet ms, sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family:trebuchet ms, sans-serif;"><span style="font-family:trebuchet ms, sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family:trebuchet ms, sans-serif;">
<span style="font-family:trebuchet ms, sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family:trebuchet ms, sans-serif;"><span style="font-family:trebuchet ms, sans-serif;">e-mail: <a rel="nofollow" ymailto="mailto:walmes@ufpr.br" target="_blank" href="mailto:walmes@ufpr.br">walmes@ufpr.br</a></span><br style="font-family:trebuchet ms, sans-serif;">
<span style="font-family:trebuchet ms, sans-serif;">twitter: @walmeszeviani</span><br style="font-family:trebuchet ms, sans-serif;"><span style="font-family:trebuchet ms, sans-serif;">homepage: <a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/%7Ewalmes">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family:trebuchet ms, sans-serif;">
<span style="font-family:trebuchet ms, sans-serif;">linux user number: 531218</span><br style="font-family:trebuchet ms, sans-serif;"><span style="font-family:trebuchet ms, sans-serif;">==========================================================================</span><br>
</div><br><br> </div> </div> </div></body></html>