Je débute en R... et je bloque sur quelque chose de tout bête...
Voici une partie de mon jeu de donnée
Code : Tout sélectionner
Mp
median_age_1 median_age_2 median_age_3 median_age_4 number_1 number_2 number_3 number_4
1 NA NA NA NA 1055 324 NA NA
2 NA NA NA NA 171 170 169 NA
3 NA NA NA NA 235 46 79 113
4 NA NA NA NA 481 810 NA NA
5 NA NA NA NA 834 371 NA NA
6 NA NA NA NA 92 69 NA NA
7 83.0 86.0 NA NA 501 87 NA NA
8 NA NA NA NA 223 47 NA NA
Je veux calculer une médiane pondérée pour chaque ligne (ou j'ai les données bien sur, donc ici la ligne 7)
Mon code est le suivant
Code : Tout sélectionner
medianp<-function(monvec){
return(weighted.median(x=monvec[1:4], w=monvec[5:8], na.rm=T))
}
median_p<-apply(data.frame(Mp),FUN=medianp,MARGIN=1)
Et R me retourne
Code : Tout sélectionner
Erreur : All weights are zero
Pouvez vous m'aider à comprendre ou est mon erreur et pourquoi ca ne fonctionne pas?
Merci par avance
Antoine