<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto"><div>Veja </div><div><br></div><div>?sort</div><div>?order<br><br><div>[. ]'s.</div>Edson Lira<div>Estatístico</div><div>Ma-Am</div></div><div><br>Em 02/04/2013, às 09:46, Jackeline Bonetti Campos <<a href="mailto:jackebcampos@hotmail.com">jackebcampos@hotmail.com</a>> escreveu:<br><br></div><blockquote type="cite"><div>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
<div dir="ltr">
<div>Olá,</div><div><br></div>O método de ordenação por seleção normal (onde o menor elemento é encontrado e colocado na primeira posição e assim consecutivamente até que todo o vetor seja ordenado) é dado pelo algoritmo:<div><br></div><div><div>selecao<-function(vet)</div><div>{</div><div> tam<-length(vet)</div><div><br></div><div><br></div><div> for(i in 1:tam)</div><div> {</div><div> pm<-which.min(vet[i:tam])</div><div> pm<-pm+i-1 </div><div> temp<-vet[i] </div><div> vet[i]<-vet[pm] </div><div> vet[pm]<-temp</div><div> }</div><div><br></div><div> return(vet)</div><div>}</div></div><div><br></div><div>Como posso alterar esse código para que a busca seja feita pelo maior elemento e este seja colocado na última posição?</div><div><br></div><div>Pensei em algo assim:</div><div><br></div><div><div>selecao<-function(vet)</div><div>{</div><div> tam<-length(vet)</div><div><br></div><div><br></div><div> for(i in tam:1)</div><div> {</div><div> pm<-which.max(vet[tam:i])</div><div> pm<-pm+ ??</div><div> temp<-vet[i] </div><div> vet[i]<-vet[pm] </div><div> vet[pm]<-temp</div><div> </div><div> }</div><div><br></div><div> return(vet)</div><div>}</div></div><div><br></div><div><br></div><div>Porém, não sei que atribuição dar ao novo pm para que a ultima colocação seja desconsiderada.</div><div><br></div><div>Agradeço desde já!</div><div><br></div><div>Att,</div><div>Jackeline</div> </div>
</div></blockquote><blockquote type="cite"><div><span>_______________________________________________</span><br><span>R-br mailing list</span><br><span><a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></span><br><span><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></span><br><span>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</span></div></blockquote></body></html>