동물원 개체의 한 열에서만 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.numeric을 사용하여 벡터로 변환하십시오

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