ChartSeries AddTA（OBV（））错误[TTR-Quantmod]

Question

我的生产代码中有ChartSeries错误。代码

chartSeries(Stock, theme = chartTheme("white"), TA=c(addTA(ATR(Stock[,c("High","Low","Close")], n=14)), addTA(ADX(Stock[,c("High","Low","Close")])), addTA(OBV(Stock[,"Close"], Stock[,"Total.Trade.Quantity"])), addTA(chaikinAD(Stock[,c("High","Low","Close")], Stock[,"Total.Trade.Quantity"])), addTA(CMF(Stock[,c("High","Low","Close")], Stock[,"Total.Trade.Quantity"])), addRSI(), addSMI(), addMACD(type = "DEMA"), addBBands(), addDEMA(n = 20, on = 1, with.col = Cl, overlay = TRUE, col = "blue")), subset='last 4 months')

错误代码：

  

seq.default中的错误（min（tav * 0.975，na.rm = TRUE），max（tav * 1.05，na.rm = TRUE）,:     ＆＃39;从＆＃39;必须是有限的数字   另外：警告信息：   1：在min（tav * 0.975，na.rm = TRUE）：     min没有非缺失的参数;返回Inf   2：在max（tav * 1.05，na.rm = TRUE）：     max没有非缺失的参数;返回-Inf

数据文件信息：

所以我的数据文件是一个xts样式的OHLCV（csv），有1行，总共4718行，有3个NA值（在文件的第一行）。其余行完全没有其他NA值。

编辑：

刚刚省略了包含NA值的行，仍然得到相同的错误。所以错误必须与别的东西有关。

编辑2：

所以我发现错误已本地化为addTA（OBV（Stock [，＆＃34; Close＆＃34;]，Stock [，＆＃34; Total.Trade.Quantity＆＃34;]））function /参数。有什么建议或提示吗？

Answer 1

此代码解决了您的问题：

Stock <- AAPL["2018-08"]
chartSeries(Stock, theme="white")
addTA(OBV(Cl(Stock), Vo(Stock)))

Stock prices chart with OBV added