我相信的问题是如何输入CurrentDay.它以前创建为:
Transaction <- function(PnL, Day)
results <- list(a = PnL, b = Day)
return(results)
Run Code Online (Sandbox Code Playgroud)
PnL和Day都是数值.
Day <- Transaction(PnL, Day)["b"]
Run Code Online (Sandbox Code Playgroud)
Transaction返回列表,b是整数.
moving_avg <- function(StockData, MA, CurrentDay){
#MA = Days long the MA is
#CurrentDay = What day we are currently on
MAValue <- NULL
total <- 0
start <- CurrentDay - MA
for(i in 1:length(MA)) {
total <- total + StockData[[start, 4]]
start <- start + 1
}
MAValue <- total/MA
return(MAValue)
}
Run Code Online (Sandbox Code Playgroud)
有谁知道我收到此错误的原因?
CurrentDay中的错误 - MA:二元运算符的非数字参数
r ×1