Discussion :

[Invité]

Bonjour,
J'arrive à calculer le nombre de valeurs d'un vecteur "a" qui sont strictement inférieures à une valeur d'un autre vecteur "b", mais j'aimerais effectuer ce calcul pour chaque valeur du vecteur "b" successivement.
Par exemple, soient "a" et "b" les vecteurs suivants :

Code :

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

1
2
3
 
a <- c(3, 7, 11, 34, 10, 19, 10, 16,  7,  8,  8,  9)
b <- c(10, 36, 9, 20, 19, 24, 8, 15, 16, 13, 19, 22, 17, 26)

Le résultat souhaité est :

Code :

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

[1]  6 12  5 11 10 11  3  9  9  9 10 11 10 11

On a bien :
- 6 valeurs du vecteurs "a" qui sont strictement inférieures à la première valeur du vecteur "b" (= 10) : 3, 7, 7, 8, 8, 9
- 3 valeurs du vecteurs "a" qui sont strictement inférieures à la septième valeur du vecteur "b" (= 8) : 3, 7, 7
- etc.

J'arrive à obtenir ce résultat via une boucle for, ce qui ralentit les calculs. L'utilisation d'une fonction de type "tapply" est certainement possible, néanmoins je n'arrive pas à la mettre en oeuvre.
Je fais donc appel à vous ; peut-être que quelqu'un sera plus inspiré que moi.
Merci d'avance

[A. D.]

Bonjour,

Je ne sais pas si c'est la manière de faire la plus "propre" mais voilà comment j'aurais fait spontanément :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
b<-c(10, 36, 9, 20, 19, 24, 8, 15, 16, 13, 19, 22, 17, 26)
 
Infe<-function(x)
{
  a<-c(3, 7, 11, 34, 10, 19, 10, 16,  7,  8,  8,  9)
 
  z<-length(which(a<x))
 
  return(z)
}
 
s<-sapply(b,Infe)
s
 [1]  6 12  5 11 10 11  3  9  9  9 10 11 10 11

Bonne continuation


Cordialement,


A.D.

[Invité]

Super, merci beaucoup, ça me convient parfaitement !