R在处理时间序列（ts）对象而不是data.frame时出错

Question

我想使用时间序列对象（因为稍后要使用lag（）），但无法在函数中处理时间序列对象：

使用data.frame无论我是否编码

dat=data.frame(x=c(1,2,3,4,5,6))
sum(2*dat[,"x"])

[1] 42

或者

with(dat,sum(2*x))

[1] 42

但是，一旦我将data.frame转换为时间序列对象，该函数便不再起作用。

dat=data.frame(x=c(1,2,3,4,5,6))
dat <- ts(dat)
sum(2*dat[,"x"])

[1] 42

所以这仍然有效，但是

with(dat,sum(2*x))

现在导致

Error in eval(substitute(expr), data, enclos = parent.frame()) : 
  numeric 'envir' arg not of length one

或者换句话说：对于ts对象，我不能使用任何函数，例如

testy <- function(data,par){
  with(data,sum(par * x))
}
sapply(data=dat,2,testy)

不会出现“长度不为1的数字'envir'arg'”错误，而df对象不会导致该错误。 但是我稍后需要ts（）来用于lag（）函数。

如何在函数中使用时间序列对象？

Answer 1

我们可以将其转换为zoo ，它有with它作为一个methods

library(zoo)
methods(class = 'zoo')
with(zoo(dat), sum(2 * x))
# [1] 42