Discussion :

[orland]

Bonjour,

Je possède un vecteur d'entiers. Je veux calculer pour ce vecteur le 4ème plus petit élément.
J'explique : pour ce vecteur, je n'ai pas besoin de faire le tri puis de déterminer l'élément voulu (ici ça va m'augmenter la complexité de mon algo), le principe est le suivant :
trouver min(vect1) et le mettre en première position du vect1 (en faisant une permutation avec l'élément de cette position trouvée).
Je note que j'ai besoin juste de faire ceci pour le 4ème plus petit

Merci de votre aide.

Cordialement B.H

[lilly74]

Bonjour,

ma première réponse aurait été:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
x <- rnorm(10)
x
# [1]  1.1746665 -0.7973380 -0.3791060  0.1418985  2.4534345  0.5177929
# [7] -0.9678411 -2.5851251 -0.3653440 -0.2445953
sort(x)[4]
#[1] -0.379106

Apparemment, vous ne voulez pas faire de tri. Peut-être un simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

?replace

conviendrait.

Voici un exemple pour mettre le minimum en début de vecteur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
y <- replace(x, c(1,which(x==min(x))), c(min(x), x[1]))
y
# [1] -2.5851251 -0.7973380 -0.3791060  0.1418985  2.4534345  0.5177929
# [7] -0.9678411  1.1746665 -0.3653440 -0.2445953

Bonne continuation

[orland]

Merci de votre réponse
J'ai vérifié et ça marche bien mais comment puis-je modifier ce petit code pour avoir les 4 premières cases triées?

Cordialement B.H

[orland]

J'explique encore une fois :
Je commence avec un vecteur de données numériques (positives) non triées.

• je fais un parcours sur le vecteur et je cherche le minimum en utilisant min puis je permute ce min avec le premier élément du vecteur
• En deuxième étape, je commence maintenant à partir de la deuxième case du vecteur et je cherche le minimum sur vect[n-1] (la taille du vecteur décrémente)
• quand arrivé au kième élément demandé, s’arrêter (sans continuer à trier le reste du vecteur)

J'ai pensé à faire un code comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
while(k<=4)
{
y <- replace(x, c(k,which(x==min(x))), c(min(x), x[1]))
k=k+1
}

Ce n'est pas le vrai code, c'est juste l'aspect, je n'arrive pas vraiment à le développer

Veuillez m'aidez svp
Cordialement B.H

[lilly74]

Bonsoir,

voici un code à optimiser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
x <- rnorm(10)
x
 
z <- 0
 
for(k in 1:4){
     y <- replace(x, c(1,which(x==min(x))), c(min(x), x[1]))
     z <- c(z, y[1])
     x <- y[-1]
}
 
x <- c(z[-1], x)

c'est pas le vrai code c'est juste l'aspect. j'arrive pas vraiment à le développer

C'est déjà bien de proposer quelque chose
Je vous conseille cependant dans ce genre de situation de faire des tests à la main sur un petit jeu de données, en incrémentant le k avant même de faire une boucle. Vous comprendrez ainsi ce que fait votre boucle et ce qu'il faut modifier...

Bon courage

[orland]

Bonsoir,
Merci ça marche bien

En fait, la tâche que je vais faire c'est :
pour une matrice de données (numériques) je vais calculer pour chaque ligne le kième plus petit élément, puis récupérer la kième colonne et travailler sur elle.

Je vais maintenant développer une fonction qui permet de le faire.
Je poserais mes questions si j'ai des difficultés

Merci encore une fois

Cordialement B.H

[orland]

Bonjour,
Voici le code qui me permet maintenant de calculer pour une matrice de données (numériques) le kième plus petit élément pour chaque ligne. C'est-à-dire de trouver dans la kième colonne de la matrice le plus petit élément pour chaque ligne.
Avec : k un paramètre à choisir par l'utilisateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
trimat=function(matrix)
{
source("C:\\Users\\Hamdi Baccouch\\Documents\\R1\\kiemevect")
N1=dim(matrix)[1]
a=NULL
for(i in 1:N1)
     {
      z=matrix[i,]
      d=kiemevect(z)
      aa=paste("k",i,sep="")
      a=rbind( a , assign(aa,kiemevect(z),pos=1))
      }
  return(a)
}

Concernant la ligne source("C:\\Users\\Hamdi Baccouch\\Documents\\R1\\kiemevect"), je fais un appel à la fonction "kiemevect" qui me permet de trouver le kième plus petit élément pour un vecteur de données (toujous numériques).
Et dont voici son code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
kiemevect=function(x)
{
z <- 0
 
for(k in 1:4)
         {
             y <- replace(x, c(1,which(x==min(x))), c(min(x), x[1]))
             z <- c(z, y[1])
             x <- y[-1]
          }
 
      x<- c(z[-1], x)
      return(x)
}

Merci pour m'aider
Cordialement B.H