2015-03-28 1 views

Répondre

2

Essayez

tapply(hu, names(hu), FUN=mean) 

Si vous avez besoin dans l'ordre 01h10, convertir les noms (hu) de 'caractère' à 'numérique'

tapply(hu, as.numeric(names(hu)), FUN=mean) 

Ou

unique(ave(hu, names(hu)))