Olá Edson!
Obrigada por responder.
Já arrumei o código e ficou muito mais simples.
Segue:
selecao<-function(vet){ tam<-length(vet)
while(tam>0) { pm<-which.max(vet[1:tam]) temp<-vet[tam]
vet[tam]<-vet[pm] vet[pm]<-temp tam<-(tam-1) }
return(vet)}
Att,Jackeline.
CC: [email protected]
From: [email protected]
Date: Tue, 2 Apr 2013 20:49:18 -0400
To: [email protected]
Subject: Re: [R-br] Variante do método seleção.
Veja
?sort?order
[. ]'s.Edson LiraEstatísticoMa-Am
Em 02/04/2013, às 09:46, Jackeline Bonetti Campos <[email protected]>
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
[email protected]
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.
_______________________________________________
R-br mailing list
[email protected]
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. _______________________________________________
R-br mailing list
[email protected]
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.
