r - 如何在 R 中使用 quantmod 获得 3、6、12 个月的回报

Question

让我获取 Apple 的数据

data = getSymbols('AAPL',from = '2018-01-01',auto.assign = F)

如何使用库计算 3、6、12 个月（以及任何其他自定义期间）的回报quantmod？

现在我正在使用下一个代码。但是看起来很丑

  data = getSymbols(symbol,from = '2018-01-01',auto.assign = F)
  data <- to.monthly(data)
  l <-length(data[,1])
  returns = quarterlyReturn(data, type = 'log')
  p3mprofit = (as.numeric(data[l,'data.Adjusted'])-as.numeric(data[l-3,'data.Adjusted']))/as.numeric(data[l-3,'data.Adjusted'])