Sélection de nombre à partir de même échantillonnage

Postez ici vos questions, réponses, commentaires ou suggestions - Les sujets seront ultérieurement répartis dans les archives par les modérateurs

Modérateur : Groupe des modérateurs

BAHIDA ABDELJALLIL
Messages : 13
Enregistré le : 20 Nov 2017, 15:20

Sélection de nombre à partir de même échantillonnage

Messagepar BAHIDA ABDELJALLIL » 04 Avr 2018, 10:09

J'ai un échantillonnage ou j'ai des individus de grande taille et de petit taille et j'aimerai avoir le nombre d'individu avec une taille supérieure à un coefficient de 1,9 de la taille des petits individus . Ou d'une autre manière :
taille (Individus de grande taille/1,9) > indidvidus de petit taille

exemple:
1000
900
800
500
1200
300
450
100
Dans cette exemple on a les tailles 1000 a une taille supérieure à (la même taille =1000/1,9=526.31) de l'échantillon 500-300-450 et 100
l'échantillon 900 a une taille supérieure à (473.68) l'échantillon 450-300 et 100
et on aimera faire la même chose pour les autres sachant que des échantillon qui pourra arriver a plus de 1000




Merci d'avance et je m'excuse car j'ai pas mal de fois essayé des trucs mais sa marche pas pour moi

Eric Casellas
Messages : 767
Enregistré le : 06 Jan 2009, 14:59

Re: Sélection de nombre à partir de même échantillonnage

Messagepar Eric Casellas » 04 Avr 2018, 11:50

Bonjour,

Un exemple de code sur la base de ce que j'ai compris de ta question :

Code : Tout sélectionner

X <- sample(1:1500, 10)#le vecteur initial des tailles d''individus
ListInf <- function(seuil, donnees) {return(donnees[donnees<seuil/1.9])} # une fonction qui renvoie un vecteur des individus remplissant le critère <seuil/1.9
ListInf(1000, X) # les individus remplissant le critère <1000/1.9
length(ListInf(1000, X)) # le nombre des individus remplissant le critère <1000/1.9


Eric
Eric

Pierre-Yves Berrard
Messages : 1029
Enregistré le : 12 Jan 2016, 23:30

Re: Sélection de nombre à partir de même échantillonnage

Messagepar Pierre-Yves Berrard » 04 Avr 2018, 12:20

Je crois avoir compris un peu différemment d'Eric, donc :

Code : Tout sélectionner

tailles <- sample(100:1200, 10, replace = TRUE)

sapply(
  tailles / 1.9,
  function(t) sum(tailles < t)
)
PY

BAHIDA ABDELJALLIL
Messages : 13
Enregistré le : 20 Nov 2017, 15:20

Re: Sélection de nombre à partir de même échantillonnage

Messagepar BAHIDA ABDELJALLIL » 04 Avr 2018, 12:43

Merci infiniment pour votre réponse agréable Monsieur Eric, mais peut être j'ai pas bien expliqué mais je veux savoir les individus dans le même échantillon qui répond au critère (exemple individu ayant une taille < (1000/1,9)) et si je veux effectuer le même test sur tous les individus dans notre tableau

BAHIDA ABDELJALLIL
Messages : 13
Enregistré le : 20 Nov 2017, 15:20

Re: Sélection de nombre à partir de même échantillonnage

Messagepar BAHIDA ABDELJALLIL » 04 Avr 2018, 12:53

Merci infiniment pour vous deux , j'essaye d'expliquer mieux, si on prend le même exemple:

1000
900
800
500
1200
300
450
100
pour 1000 , les individus ayant une taille inférieure à 1000/1.9 sont 500-450-300-100 (4 ind)
pour 900 , 450-300-100 (3 ind)
pour 800 , 300 et 100 (2 ind)
pour 500 , 100 (1 ind)
pour 1200, 500-300-450-100(4 ind)
pour 300, 100 (1 ind)
pour 450, 100(1 ind)
pour 100 , il n'y a pas individus répondant a ce critère. (0 ind)


j'aimerai avoir quelque chose comme ça ou au moins le nombre individus répondant a ce critère

Pierre-Yves Berrard
Messages : 1029
Enregistré le : 12 Jan 2016, 23:30

Re: Sélection de nombre à partir de même échantillonnage

Messagepar Pierre-Yves Berrard » 04 Avr 2018, 13:08

Ma solution semble marcher. Tester avec :

Code : Tout sélectionner

tailles <- c(1000, 900, 800, 500, 1200, 300, 450, 100)
PY

Eric Casellas
Messages : 767
Enregistré le : 06 Jan 2009, 14:59

Re: Sélection de nombre à partir de même échantillonnage

Messagepar Eric Casellas » 04 Avr 2018, 13:30

A priori mon code marche aussi...

Code : Tout sélectionner

tailles <- c(1000, 900, 800, 500, 1200, 300, 450, 100)
ListInf <- function(seuil, donnees) {return(donnees[donnees<seuil/1.9])}
NumListInf <- function(seuil, donnees) {return(length(ListInf(seuil, donnees)))}
ListInf(1000, tailles)
NumListInf(1000, tailles)
ListInf(800, tailles)
NumListInf(800, tailles)
sapply(tailles, NumListInf, tailles)
sapply(tailles, ListInf, tailles)
Eric

Logez Maxime
Messages : 3138
Enregistré le : 26 Sep 2006, 11:35

Re: Sélection de nombre à partir de même échantillonnage

Messagepar Logez Maxime » 04 Avr 2018, 14:17

Bonjour,

a tester :

Code : Tout sélectionner

sapply(tailles, function(x, seuil) sum(tailles[tailles < x] < seuil), seuil = 1000/1.9)
Cordialement,
Maxime

BAHIDA ABDELJALLIL
Messages : 13
Enregistré le : 20 Nov 2017, 15:20

Re: Sélection de nombre à partir de même échantillonnage

Messagepar BAHIDA ABDELJALLIL » 04 Avr 2018, 21:12

Merci a vous tous , vraiment vous m'avez aidé énormément.

J'aimerai savoir s'il y a une possibilité d'effectuer ce teste sur un tableau déjà existant. (au lieu des chiffres cité dans l'exemple je cite le tableau et le script exécute directement)

BAHIDA ABDELJALLIL
Messages : 13
Enregistré le : 20 Nov 2017, 15:20

Re: Sélection de nombre à partir de même échantillonnage

Messagepar BAHIDA ABDELJALLIL » 04 Avr 2018, 21:25

Eric Casellas a écrit :A priori mon code marche aussi...

Code : Tout sélectionner

tailles <- c(1000, 900, 800, 500, 1200, 300, 450, 100)
ListInf <- function(seuil, donnees) {return(donnees[donnees<seuil/1.9])}
NumListInf <- function(seuil, donnees) {return(length(ListInf(seuil, donnees)))}
ListInf(1000, tailles)
NumListInf(1000, tailles)
ListInf(800, tailles)
NumListInf(800, tailles)
sapply(tailles, NumListInf, tailles)
sapply(tailles, ListInf, tailles)



Merci infiniment votre réponse été la plus outils pour moi .


Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Google [Bot] et 1 invité