Рассчитать дневник заработок от инструмента

Question

Я хочу рассчитать дневной заработок по цене инструмента.

instrument=c(1,2,3,4,5,1,2,3,4,5,1,2,3,4,5)
price=c(12,13,29,20,87,24,14,78,46,98,23,67,25,88,27)
date=c("2019-04-01","2019-04-01","2019-04-01","2019-04-01","2019-04-01","2019-04-02","2019-04-02","2019-04-02","2019-04-02","2019-04-02","2019-04-03","2019-04-03","2019-04-03","2019-04-03","2019-04-03")
tabla1=data.frame(instrument,price,date)

Я хочу знать, как я могу рассчитать, сколько денег я заработаю на инструменте 1 между датами 2019-04-01 и 2019-04-02

Answer 1

, если вы хотите, чтобы ежедневный доход составлял p(t) / p(t-1) - 1, тогда:

library(data.table)

dt <- as.data.table(tabla1)
dt[, return := price / shift(price) - 1, by = .(instrument)]