<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Olá Edson!<div><br></div><div>Obrigada por responder.</div><div><br></div><div>Já arrumei o código e ficou muito mais simples.</div><div><br></div><div>Segue:</div><div><br></div><div><div>selecao<-function(vet)</div><div>{</div><div> tam<-length(vet)</div><div><br></div><div><br></div><div> while(tam>0)</div><div> {</div><div> pm<-which.max(vet[1:tam])</div><div> temp<-vet[tam] </div><div> vet[tam]<-vet[pm] </div><div> vet[pm]<-temp</div><div> tam<-(tam-1)</div><div> }</div><div><br></div><div> return(vet)</div><div>}</div><div><br></div><div>Att,</div><div>Jackeline.</div><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">CC: r-br@listas.c3sl.ufpr.br<br>From: edinhoestat@yahoo.com.br<br>Date: Tue, 2 Apr 2013 20:49:18 -0400<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: Re: [R-br] Variante do método seleção.<br><br><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><div>
<style><!--
.ExternalClass .ecxhmmessage P
{padding:0px;}
.ExternalClass body.ecxhmmessage
{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><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" target="_blank">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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</span></div></blockquote><br>_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.</div></div> </div></body>
</html>