[R-br] Variante do método seleção.

Edson Lira edinhoestat em yahoo.com.br
Terça Abril 2 21:49:18 BRT 2013


Veja 

?sort
?order

[. ]'s.
Edson Lira
Estatístico
Ma-Am

Em 02/04/2013, às 09:46, Jackeline Bonetti Campos <jackebcampos em hotmail.com> escreveu:

> Olá,
> 
> 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:
> 
> selecao<-function(vet)
> {
>   tam<-length(vet)
> 
> 
>   for(i in 1:tam)
>   {
>     pm<-which.min(vet[i:tam])
>     pm<-pm+i-1      
>     temp<-vet[i]       
>     vet[i]<-vet[pm]     
>     vet[pm]<-temp
>   }
> 
>   return(vet)
> }
> 
> Como posso alterar esse código para que a busca seja feita pelo maior elemento e este seja colocado na última posição?
> 
> Pensei em algo assim:
> 
> selecao<-function(vet)
> {
>   tam<-length(vet)
> 
> 
>   for(i in tam:1)
>   {
>     pm<-which.max(vet[tam:i])
>     pm<-pm+ ??
>     temp<-vet[i]       
>     vet[i]<-vet[pm]     
>     vet[pm]<-temp
>     
>   }
> 
>   return(vet)
> }
> 
> 
> Porém, não sei que atribuição dar ao novo pm para que a ultima colocação seja desconsiderada.
> 
> Agradeço desde já!
> 
> Att,
> Jackeline
> _______________________________________________
> R-br mailing list
> R-br em 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.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130402/7e221135/attachment.html>


Mais detalhes sobre a lista de discussão R-br