は1つの列で行列を分割します

Question

私は1つのxtsで除算したい複数列のxtsを持っています（もちろん、主キーとして日付を使用しています）。

ベクトル化の方法でそれを行う方法はありますか？

おかげ

Answer 1

参照?sweep（私はあなたが何を意味するのか理解していれば - 再現性の一例を!?）：

data(sample_matrix) 
sample.xts <- as.xts(sample_matrix, descr='my new xts object') 
## create a matrix... 
m <- sample.xts[, -1] 
## ...and a vector from the sample.xts object 
v <- sample.xts[, 1] 
## apply sweep 
out <- sweep(m, 1, v, "/") 

与える：

> class(out) 
[1] "xts" "zoo" 
> head(out) 
       High  Low  Close 
2007-01-02 1.001559 0.9982141 1.0015587 
2007-01-03 1.003810 1.0000000 1.0033281 
2007-01-04 1.000000 0.9968898 0.9982428 
2007-01-05 1.000000 0.9969739 0.9992283 
2007-01-06 1.000000 0.9973506 0.9987421 
2007-01-07 1.001666 0.9972022 0.9972022