Введите формулу "value_t / value_t-1 -1"

Question

У меня есть таблица.csv с ежедневными значениями запаса, и я хочу добавить столбец с ежедневными доходами. Это означает, что мне нужно добавить столбец, который имеет эту формулу:

value_t / value_t-1 - 1

В настоящее время у меня есть это:

temp <- read.table("data.csv",header=TRUE,sep=",")
daily <- temp[,2]
dailyreturn <- daily / daily - 1
temp <- cbind(temp, dailyreturn)
write.csv(temp, "daily_return.csv")

Как видите, код почти готов. Это работает, как задумано, я просто не знаю, как ввести формулу в мою функцию.

Заранее спасибо! И извините за такой нубский вопрос:-)

Answer 1

Попробуйте заменить третью строку на следующую и посмотрите, хотите ли вы этого.

dailyreturn <- c(NA,daily[-1]/daily[-length(daily)]-1)