programmation: comment calculer manuellement une médiane?

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

Wilfrid Car
Messages : 59
Enregistré le : 09 Avr 2015, 13:35

programmation: comment calculer manuellement une médiane?

Messagepar Wilfrid Car » 17 Déc 2015, 12:14

A des fin pédagogiques, je cherche un moyen simple de calculer une médiane avec R sans utiliser les fonctions!
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)

Nicolas Lannes
Messages : 14
Enregistré le : 04 Oct 2015, 19:19

Re: programmation: comment calculer manuellement une médiane?

Messagepar Nicolas Lannes » 17 Déc 2015, 12:48

Bonjour,
Et bien je dirais :

- si le vecteur est de taille pair n, c'est data_pair_ordo[n/2] ou data_pair_ordo[n/2 +1]
- si le vecteur est de taille impair m, c'est data_impair_ordo[floor(m/2) +1]

Gabriel Terraz
Messages : 591
Enregistré le : 26 Sep 2011, 15:11

Re: programmation: comment calculer manuellement une médiane?

Messagepar Gabriel Terraz » 17 Déc 2015, 12:49

Ce qui doit donner :

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 »

Qui est en ligne

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