XTS применить функцию к подмножеству времени дня?

Question

Как применить функцию сводки к подмножеству времени дня?

Например, с помощью:

r['T16:00/T17:00']$Value

Как применить что-то вроде function (x) quantile(x, c(.90)) для значения за каждый час выборки дня?

Answer 1

Вы можете использовать apply.daily, чтобы применить функцию к данным каждого дня после того, как вы сделали подмножество времени дня.

rt <- r['T16:00/T17:00','Value']
rd <- apply.daily(rt, function(x) xts(t(quantile(x,0.9)), end(x)))

Вы видите, что мне нужно было сделать несколько сальто дляубедитесь, что объект, возвращенный из вашей функции, может быть обработан apply.daily.В основном это должен быть многостолбцовый объект xts с одной строкой.