Je démarre par ordonner les séries mais la suite m'échappe....
Code : Tout sélectionner
data_pair <- c(5, 7, 3, 89, 90, 67)
data_impair <- c(2, 67 ,7 ,3 , 89, 90, 67)
data_pair_ordo <- sort (data_pair)
data_impair_ordo <- sort (data_impair)
Modérateur : Groupe des modérateurs
Code : Tout sélectionner
data_pair <- c(5, 7, 3, 89, 90, 67)
data_impair <- c(2, 67 ,7 ,3 , 89, 90, 67)
data_pair_ordo <- sort (data_pair)
data_impair_ordo <- sort (data_impair)
Code : Tout sélectionner
MED <- function(vector){
vector_sort <- sort(vector)
L <- length(vector_sort)
if(L %% 2 == 0){
med <- (vector_sort[L/2] + vector_sort[L/2+1]) / 2
}
else {
med <- vector_sort[L%/%2 + 1]
}
med
}
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité