1
library(quantmod)
getSymbols('AAPL')
n <- nrow(AAPL)
a <- runif(n)

我想转换a为日期等于AAPL.

到目前为止,我无法以任何方式做到这一点。

4

1 回答 1

2

这很简单:

a <- xts(runif(nrow(AAPL)), index(AAPL))
于 2012-08-23T16:24:10.493 回答