2015-03-28 6 views

ответ

2

Попробуйте

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

Если вам нужно в порядке 1:10, преобразовывать имена (HU) от 'символа' к 'числовой'

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

Или

unique(ave(hu, names(hu))) 
Смежные вопросы