كيفية استخدام وظيفة rollmean على عمود واحد فقط من كائن حديقة الحيوان؟

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.Numbery لتحويله إلى ناقل

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