Question

我正在使用一些使用%*%运算符的代码将权重向量应用于表示时间序列的向量。我想使用xts作为时间序列，但是%*%运算符并不理解它应该忽略xts索引值。

我知道我可以使用coredata()将我的系列值作为向量拉出，对值进行操作，并将它们合并回来，但我想知道是否有一个很好的本机xts函数我应该使用

编辑：代码示例，说明我在行为中看到的差异。

library(xts)
data(sample_matrix)
s<-as.xts(sample_matrix)

o_xts<-s$Open
c_xts<-coredata(s$Open)

len <-length(c_xts)
len2<-len/2
xx<-c_xts[1:len]
outp<-0*0:len2
outp[2] <- xx%*%exp((1:(2*len2))*1.i*pi/len2)
#completes without issue

len <-length(o_xts)
len2<-len/2
yy<-o_xts[1:len]
outp<-0*0:len2
outp[2] <- yy%*%exp((1:(2*len2))*1.i*pi/len2)
Warning message:
In outp[2] <- yy %*% exp((1:(2 * len2)) * (0+1i) * pi/len2) :
  number of items to replace is not a multiple of replacement length

Answer 1

如果您选中help("[.xts")，则会发现drop默认为FALSE。对于普通矩阵，默认值为TRUE。

str(o_xts[1:len])
# An ‘xts’ object from 2007-01-02 to 2007-06-30 containing:
#   Data: num [1:180, 1] 50 50.2 50.4 50.4 50.2 ...
#  - attr(*, "dimnames")=List of 2
#   ..$ : NULL
#   ..$ : chr "Open"
#   Indexed by objects of class: [POSIXct,POSIXt] TZ: 
#   xts Attributes:  
#  NULL

str(c_xts[1:len])
# num [1:180] 50 50.2 50.4 50.4 50.2 ...

这意味着您的xx是180个元素向量，而您的yy是180 x 1矩阵。要在两种情况下获得相同的行为，您可以使用yy <- o_xts[1:len, drop=TRUE]。

Answer 2

我还没有看到任何证据来支持这个问题的前提，当我在帮助（xts）中对第一个例子做我自己的简单测试时，我想出了相反的证据：

> data(sample_matrix)
> sample.xts <- as.xts(sample_matrix, descr='my new xts object')
> str(coredata(sample.xts))
 num [1:180, 1:4] 50 50.2 50.4 50.4 50.2 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:4] "Open" "High" "Low" "Close"
> str(coredata(sample.xts) %*% c(3, 3,3,3) )
 num [1:180, 1] 601 604 604 604 602 ...
> str(sample.xts %*% c(3, 3,3,3) )
 num [1:180, 1] 601 604 604 604 602 ...

使用xts的％*％的R idiom

2 个答案: