【发布时间】:2018-02-07 19:34:01
【问题描述】:
我使用quantmod 下载了一堆资产的价格,然后将数据集合并为一个时间序列。
library(quantmod)
# Vector of stocks
stocks <- c('AEIS', 'ABC', 'AMGN', 'BBY', 'HRB', 'BKE', 'CPLA', 'GIB')
# Download data sets
getSymbols(stocks)
# Generate time series of prices
prices.data <- do.call(merge, lapply(stocks, function(x) Cl(get(x))))
colnames(prices.data) <- stocks
head(prices.data)
AEIS ABC AMGN BBY HRB BKE CPLA GIB
2007-01-03 18.75 23.055 68.40 49.06 23.20 23.00123 25.44 6.73
2007-01-04 18.89 23.145 71.33 49.84 23.28 22.73215 25.19 6.78
2007-01-05 18.63 22.865 71.50 50.00 22.95 21.87720 25.00 6.71
2007-01-08 18.88 23.225 70.93 49.42 23.27 21.76003 25.00 6.76
2007-01-09 18.66 23.150 71.27 49.04 23.48 22.54554 24.84 6.79
2007-01-10 18.93 23.260 71.04 49.41 23.97 22.12458 25.02 6.85
我现在想要一个新的时间序列returns.data,其中包含每项资产的每月回报。如何以最流畅的方式生成它?
【问题讨论】:
-
你有预期输出的例子吗?我假设您想要相同的格式(每个资产 1 列),对吧?