Более длинная длина объекта не кратна короткой длине объекта?

Я не понимаю, почему R дает мне предупреждение о том, что "Длительная длина объекта не кратна короткой длине объекта"

У меня есть этот объект, который генерируется путем создания агрегата по серии xts, дающей среднюю неделю недели:

u <- aggregate(d, list(Ukedag = format(index(d),"%w")), median)

1 314.0
2 282.5
3 270.0
4 267.0
5 240.5

Затем я пытаюсь применить это к моей исходной серии xts, которая выглядит так (только намного дольше)

head(d)
2009-01-02 116
2009-01-05 256
2009-01-06 286

Использование:

coredata(d) <- coredat(d) - u[format(index(d),"%w")];

Это приводит к предупреждению.

Цель состоит в том, чтобы вычесть среднее значение дня недели. Он работает, несмотря на предупреждение, но о чем беспокоиться?

Исправленное решение: попытка 2

apply.daily(d, function(x) coredata(x) - u[format(index(x), "%w")] )

У меня действительно была серьезная ошибка. Это не дает никаких предупреждений, и я проверил его, выполнив:

apply.daily(d, function(x) u[format(index(x), "%w")] )

Затем, проверяя некоторые даты, и оказалось, что это было согласовано с календарем.