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

Question

让我得到苹果的数据

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

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

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

  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'])