Por que não há apply.hourly em R com xts / zoo?

Eu quero agregar dados por média horária. Diariamente é muito fácil:

apply.daily(X2,mean)

Por que não há nenhuma função por hora? eu tentei

hr.means <- aggregate(X2, format(X2["timestamp"],"%Y-%m-%d %H"))

e sempre tem erro com o argumento trim. Existe uma função mais fácil semelhante a apply.daily? E se eu quiser agregar a média de 5 minutos? Os dados são valores por minuto:

"timestamp", value 
"2012-04-09 05:03:00",2
"2012-04-09 05:04:00",4
"2012-04-09 05:05:00",5
"2012-04-09 05:06:00",0
"2012-04-09 05:07:00",0
"2012-04-09 05:08:00",3
"2012-04-09 05:09:00",0
"2012-04-09 05:10:00",1

Eu estou usando xts e zoológico.

questionAnswers(3)

yourAnswerToTheQuestion