<br clear="all">Tito Conte<br><br><br>
<br><br><div class="gmail_quote">2012/5/2 Pedro Emmanuel Alvarenga Americano do Brasil <span dir="ltr"><<a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<font color="#000066"><font face="courier new,monospace">Amigos de R,</font></font><div><font color="#000066"><font face="courier new,monospace"><br></font></font></div><div><font color="#000066"><font face="courier new,monospace">Estou tentando comparar alguns métodos de estimação e um dos passos necessários é encontrar valores maximos ou minimos de vetores numéricos. </font></font></div>



<div><font color="#000066"><font face="courier new,monospace"><br></font></font></div><div><font color="#000066"><font face="courier new,monospace">O problema numero 1 é que quando comparo visualmente os vetores ocorre que ocasionalmente acontece 2 ou 3 empates nos valores máximos ou mínimos como no vetor abaixo. Reparem que o valor .7 aparece na posição 21 e 23. Mas quando utilizo a função which.max ou max eu so encontro a posição 23. POssivlemente ha alguma coisa relacionado com precisão nume´rica apesar de não fazer muito sentido no momento.</font></font></div>



<div><font color="#000066"><font face="courier new,monospace"><br></font></font></div><div><span style="border-collapse:separate;font-size:medium"><span style="font-size:13px;line-height:15px;text-align:-webkit-left"><pre style="font-family:'Lucida Console';font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;margin-top:0px;margin-bottom:0px;line-height:1.2">

<span style="white-space:pre-wrap!important;color:blue">> </span><span style="white-space:pre-wrap!important;color:blue">test.values$Youden
</span><span style="white-space:pre-wrap!important"> [1] 0.00 0.05 0.10 0.15 0.20 0.25 0.30 0.35 0.40 0.45 0.50 0.55 0.60 0.55 0.60 0.65 0.60 0.65 0.60 0.65
[21] 0.70 0.65 0.70 0.65 0.60 0.65 0.60 0.65 0.60 0.55 0.50 0.45 0.40 0.35 0.30 0.25 0.20 0.15 0.10 0.05
</span><span style="white-space:pre-wrap!important;color:blue">> </span><span style="white-space:pre-wrap!important;color:blue">max(test.values$Youden)
</span>[1] 0.7
<span><span style="border-collapse:separate;font-family:Arial;line-height:normal;white-space:normal;font-size:medium"><span style="font-family:'Lucida Console';font-size:13px;line-height:15px;white-space:pre-wrap"><pre style="font-family:'Lucida Console';font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap!important;margin-top:0px;margin-bottom:0px;line-height:1.2">

<span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">which.max(test.values$Youden)
</span>[1] 23</pre></span></span></span><span style="white-space:pre-wrap!important;color:blue">> </span><span style="white-space:pre-wrap!important;color:blue">which(test.values$Youden==max(test.values$Youden))
</span><span style="white-space:pre-wrap!important">[1] 23
</span><span style="white-space:pre-wrap!important;color:blue">> </span><span style="white-space:pre-wrap!important;color:blue">test.values$Youden[21]==test.values$Youden[23]</span></pre>

<pre style="font-family:'Lucida Console';font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;margin-top:0px;margin-bottom:0px;line-height:1.2">

<span style="white-space:pre-wrap!important;color:blue"><pre style="color:rgb(0,0,0);font-family:'Lucida Console';font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;margin-top:0px;margin-bottom:0px;line-height:1.2">

<span style="white-space:pre-wrap!important">[1] FALSE</span></pre>
</span></pre><pre style="font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;margin-top:0px;margin-bottom:0px;line-height:1.2">

<font face="'courier new', monospace" color="#000066"><span>O problema 2 é que quando de fato ocorrem empates a função which.max retorna somente a primeira posição. Então, a questão</span></font></pre>

<pre style="font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;margin-top:0px;margin-bottom:0px;line-height:1.2">

<font face="'courier new', monospace" color="#000066"><span>seria como retornar todas as posições com valores máximos ou encontrar uma mediana dos valores empatados? 
</span><span style="white-space:pre-wrap"><br></span></font></pre><pre style="font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;margin-top:0px;margin-bottom:0px;line-height:1.2">

<font face="'courier new', monospace" color="#000066"><span style="white-space:pre-wrap">Qualquer luz é bem vinda. </span></font></pre></span></span></div><div><font color="#000066"><font face="courier new,monospace"><br clear="all">



</font></font><font face="'courier new', monospace" style color="#000066">Dr. Pedro Emmanuel A. A. do Brasil</font><div><font face="'courier new', monospace" style color="#000066">Curriculum Lattes: 
<span style="text-align:left"><a href="http://lattes.cnpq.br/6597654894290806" target="_blank">http://lattes.cnpq.br/6597654894290806</a></span> <br>Instituto de Pesquisa Clínica Evandro Chagas<br>Fundação Oswaldo Cruz<br>



Rio de Janeiro - Brasil<br>Av. Brasil 4365, <br>CEP 21040-360,<br>Tel <a href="tel:55%2021%203865-9648" value="+552138659648" target="_blank">55 21 3865-9648</a><br>email: <a href="mailto:pedro.brasil@ipec.fiocruz.br" target="_blank">pedro.brasil@ipec.fiocruz.br</a><br>

email: <a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a><br>

<br>---Apoio aos softwares livres<br><a href="http://www.zotero.org" target="_blank">www.zotero.org</a> - gerenciamento de referências bibliográficas. <br><a href="http://www.broffice.org" target="_blank">www.broffice.org</a> ou <a href="http://www.libreoffice.org/" target="_blank">www.libreoffice.org</a> - textos, planilhas ou apresentações.<br>



<a href="http://www.epidata.dk" target="_blank">www.epidata.dk</a> - entrada de dados.<br><a href="http://www.r-project.org" target="_blank">www.r-project.org</a> - análise de dados.<br><a href="http://www.ubuntu.com" target="_blank">www.ubuntu.com</a> - sistema operacional</font></div>



<br>
</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>