Как использовать функцию рулона только на одном столбце объекта зоопарка?

Question

Я пытаюсь использовать rollmean Функция на объекте зоопарка, который содержит неперечисленные столбцы. Моя цель - добавить новый столбец в существующий объект.

Почему следующий тестовый код не работает?

library(zoo)
d <- data.frame(time=c(1, 2, 3), foo=c('a', 'b', 'c'), bar=c(32, 4, 1))
z <- zoo(d, order.by=d$time)
rollmean(z$bar, 2)

Я получаю ошибку «не нулечный аргумент для бинарного оператора». Разве функция не должна использовать только столбец стержня? Должен ли я создать отдельный объект зоопарка для столбца стержня, использовать функцию прокатки на нем, а затем объединить результаты с z?

Answer 1

Используйте as.nemeric, чтобы преобразовать его в вектор

rollmean(as.numeric(z$bar), 2)