Полностью в функциях Quantmod:
library(quantmod)
aapl <- getSymbols("AAPL", from = "2000-01-01", auto.assign = F)
# first and last get the first and last entry in the timeseries.
# select the close values
# Delt calculates the percent difference
Delt(Cl(first(aapl)), Cl(last(aapl)))
Delt.0.arithmetic
2020-07-08 94.39573
Или простыми математиками:
as.numeric(Cl(last(aapl))) / as.numeric(Cl(first(aapl))) - 1
[1] 94.39573
Я беру близкое значение первой записи. Вы можете совершить открытие, максимум или минимум дня. Это в некоторой степени влияет на первые значения доходности в 2000 году в диапазоне от минимума 3,63 до максимума 4,01. В зависимости от вашего выбора доходность будет в 104–93,9 раза больше вашего стартового капитала.