基于现有列创建数据库列

Question

我必须使用此功能计算某些商家的月报表：

月度回报率i + 1 =（第i个月收盘价+第1个月收盘价）/月份收盘价

我的数据集包含每月约10年的收盘价。我如何创建/使用函数来计算每个月的MR？

Answer 1

monthly <- c(100, 120, 130, 100, 140)  # replace this of course with actual data

result <- rep(NA, length(monthly))
for (i in 1:(length(monthly)-1)) {
   result[i+1] <- (monthly[i+1] - monthly[i]) / monthly[i] 
}

result现在将包含您的答案。请注意，第一个位置将包含NA，因为您对月份i不感兴趣。