Modérateur : Groupe des modérateurs
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
Code : Tout sélectionner
tailles <- sample(100:1200, 10, replace = TRUE)
sapply(
tailles / 1.9,
function(t) sum(tailles < t)
)
Code : Tout sélectionner
tailles <- c(1000, 900, 800, 500, 1200, 300, 450, 100)
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)
Code : Tout sélectionner
sapply(tailles, function(x, seuil) sum(tailles[tailles < x] < seuil), seuil = 1000/1.9)
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)
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Bertrand Vassor et 1 invité