déterminer la position des éléments précis [Résolu]

[orland]

Bonjour,
J'ai un vecteur de données, comment puis-je trouver la position des éléments ayant une valeur > 10.
Voici un petit exemple :

Code :

m=c(20,33,2,15,3,10,17)

Il me rend:

Code :

> 1,2,4,7

J'ai réussi à écrire ce code qui me permet juste de déterminer les éléments ayant une valeur > 10 et non leurs positions dans le vecteur initial.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
ess=function(data)
{
r=NULL
n=length(data)
for(i in 1:n)
   {
    aa=paste("p",i,sep="")
    if(data[i]>10 )
        {
           r=c(r,assign(aa,data[i],pos=1))
        }
     }
return(r)
}

Donc ma question est comment determiner les position des éléments ayant une valeur > 10 ?
J'ai essayé avec which mais sans avoir réussi
Merci d'avance

[A. D.]

Bonjour,

Envoyé par orland

Voici un petit exemple :

Code :

m=c(20,33,2,15,3,10,17)

Il me rend:

Code :

> 1,2,4,7

De qui/quoi parlez-vous dans le "il me rend" ? Est-ce le résultat que vous souhaitez obtenir ?
Qu'avez-vous tenté avec la fonction "which" (vous pouvez envoyer votre code même s'il ne fonctionne pas) ?

En effet, si j'ai bien compris votre problème, qui est de déterminer les positions des éléments d'un vecteur qui sont supérieurs à 10, la fonction "which" me semble toute indiquée !
Voir l'aide et ses exemples :

Code :

?which

Bonne continuation !


Cordialement,

A.D.

[orland]

Oui, vous avez bien compris ce que je veux
J'ai vu la documentation de which et je l'ai utilisée avant avec succès mais je ne sais pas comment faire avec ce problème
J'ai essayé ce code mais ça ne marche pas !

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ess=function(data)
{
r=NULL
n=length(data)

for(i in 1:n)
   {
    aa=paste("p",i,sep="")
    if(data[i]>=7)
        {
          r=c(r,assign(aa,data[i],pos=1))
          v=c(v,assign(aa,which(data[i]==r),pos=1))
        }  
    }
return(v)
}

Si vous voulez, si vous disposez d'une solution, veuillez me la fournir
Merci d'avance.

[A. D.]

Re-bonjour,

Déjà dans votre code, il y a un problème dans la boucle ici :

Code :

v=c(v,assign(aa,which(data[i]==r),pos=1))

En effet, pour pouvoir écrire cela, il faut que vous définissiez une première fois (par exemple en dehors de la boucle) l'élement "v" (comme vous l'avez fait pour l'élément "r").


Ensuite, je ne vois pas pourquoi vous avez besoin de faire une telle fonction ? Est-ce que c'est un vecteur du type m=c(20,33,2,15,3,10,17) que vous passez en argument (à la place de l'élément "data") dans la fonction ?
Si oui et que tout ce que vous souhaitez obtenir sont les positions pour lesquelles la valeur est supérieure à un élément (par exemple 10), je pense que vous vous compliquez la vie et qu'un simple appel à la fonction "which" suffit.


Cordialement,

A.D.

[orland]

Re-bonjour
Oui, oui, j'ai oublié de définir la variable "v" mais même si je la définie, reste le même problème.

Est-ce que c'est un vecteur du type m=c(20,33,2,15,3,10,17) que vous passez en argument (à la place de l'élément "data") dans la fonction ?

oui c'est ce vecteur

je pense que vous vous compliquez la vie et qu'un simple appel à la fonction "which" suffit.

En fait dans mon algo j'ai besoin de ces éléments aussi bien de leurs positions.
Vous me dites toujours un simple appel à la fonction "which" suffit ! Mais je ne sais pas comment faire parce que une fonction "which" comme dans ce petit exemple

Code :

which(LETTERS == "R")

possède comme vecteur la phrase "LETTERS" et comme lettre voulu "R",
donc dans mon exemple je crois que j'aurais besoin du vecteur initial contenant et celui qui contient les éléments ayant une val > 10.
C'est que je pense.
Veuillez svp me fournir un petit code pour le tester

[A. D.]

Le truc c'est que j'ai l'impression que si je vous fournis un exemple cela vous donnera directement votre solution or j'aurais aimé réussir à vous faire trouver par vous-mêmes

Bon voici un exemple "bête" mais qui est presque ce que je crois que vous souhaitez :

Code :

1
2
3
4
5
6
7
8
9
10
11
v<-10:1
v
 [1] 10  9  8  7  6  5  4  3  2  1

mypos<-which(v>5)
mypos
 [1] 1 2 3 4 5

myval<-v[mypos]
myval
 [1] 10  9  8  7  6

Est-ce que cela vous paraît plus clair ? La fonction "which" est très utile dans ce genre de cas !


Cordialement,

A.D.

[orland]

merci
oui j'ai bien compris que vous voulez que je trouve ceci tout seul
en fait, "j'ai la tête saturée" et ce petit code que je cherche n'est en fait q'une petite partie d'un long algorithme dont j'ai codé plus que 15 fonctions (la plus petite ayant 100 lignes) :/
J'arrive bientot à finir mon approche.
Merci à vous, à votre aide
merci infiniment
Cordialement B.H