小编Kiw*_*iwi的帖子

我试图在我的时间序列预测模型中使用prewhiten函数(TSA包).但我得到以下错误:

Error in UseMethod("filter_") : no applicable method for 'filter_' applied to
an object of class "c('double', 'numeric')"

我对此错误一无所知.例如,如果我尝试运行TSA包pdf(页码50)中给出的示例.我犯了同样的错误.以下是引用相同pdf的代码:

   data(milk)
   data(electricity)
   milk.electricity=ts.intersect(milk,log(electricity))
   plot(milk.electricity,yax.flip=TRUE,main='')
   ccf(as.numeric(milk.electricity[,1]),as.numeric(milk.electricity[,2]),
   main='milk & electricity',ylab='CCF')
   me.dif=ts.intersect(diff(diff(milk,12)),diff(diff(log(electricity),12)))
   prewhiten(as.numeric(me.dif[,1]),as.numeric(me.dif[,2]),
   ,ylab='CCF')

任何人都可以帮我解决这个错误吗？谢谢!

我的数据框在单元格中包含"0"值.我需要调出值(字母/非零的)和相应的票号.数据框(m)看起来像:(请注意:列名与其值类似)

       a1   b1  c1  d1  e1  f1  g1  h1  i1  j1  k1  l1
TKT1   a1   b1  0   d1  0   0   0   h1  0   0   k1  0
TKT2   0    b1  0   0   e1  0   g1  h1  0   j1  k1  0
TKT3   a1   0   0   d1  e1  0   g1  h1  i1  0   k1  l1

生成数据集的代码:

#sample data
m <- matrix(sample(0:1, 12*3, replace=T), ncol=12)
colnames(m) <- c("a1", "b1", "c1", "d1", "e1", "f1", "g1", "h1", "i1", "j1", "k1", "l1")
rownames(m) <- c("TKT1","TKT2","TKT3")

#replacement
ones …