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: r-br@listas.c3sl.ufpr.br
From: edinhoestat@yahoo.com.br
Date: Tue, 2 Apr 2013 20:49:18 -0400
To: r-br@listas.c3sl.ufpr.br
Subject: Re: [R-br] Variante do método seleção.

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@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.

_______________________________________________ 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.