ChartSeries AddTA（OBV（））错误[TTR-Quantmod]
ChartSeries AddTA(OBV()) Error [TTR-Quantmod]
我的生产代码中有一个 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')
错误代码：
Error in seq.default(min(tav * 0.975, na.rm = TRUE), max(tav * 1.05, na.rm = TRUE), :
'from' must be a finite number
In addition: Warning messages:
1: In min(tav * 0.975, na.rm = TRUE) :
no non-missing arguments to min; returning Inf
2: In max(tav * 1.05, na.rm = TRUE) :
no non-missing arguments to max; returning -Inf
数据文件信息：
所以我的数据文件，一个 xts 样式的 OHLCV (csv)，在总共 4718 行中有 1 行有 3 个 NA 值（在文件的第一行）。其余行完全填充没有其他 NA 值。
编辑：
只是省略了包含 NA 值的行，仍然得到相同的错误。所以错误必须与其他事情有关。
编辑 2：
所以我发现错误定位于addTA(OBV(Stock["Close"], Stock["Total.Trade.Quantity"])) function/arguments。有什么建议或提示吗？
此代码可以解决您的问题：
Stock <- AAPL["2018-08"]
chartSeries(Stock, theme="white")
addTA(OBV(Cl(Stock), Vo(Stock)))
Stock prices chart with OBV added
我的生产代码中有一个 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')
错误代码：
Error in seq.default(min(tav * 0.975, na.rm = TRUE), max(tav * 1.05, na.rm = TRUE), : 'from' must be a finite number In addition: Warning messages: 1: In min(tav * 0.975, na.rm = TRUE) : no non-missing arguments to min; returning Inf 2: In max(tav * 1.05, na.rm = TRUE) : no non-missing arguments to max; returning -Inf
数据文件信息：
所以我的数据文件，一个 xts 样式的 OHLCV (csv)，在总共 4718 行中有 1 行有 3 个 NA 值（在文件的第一行）。其余行完全填充没有其他 NA 值。
编辑：
只是省略了包含 NA 值的行，仍然得到相同的错误。所以错误必须与其他事情有关。
编辑 2：
所以我发现错误定位于addTA(OBV(Stock["Close"], Stock["Total.Trade.Quantity"])) function/arguments。有什么建议或提示吗？
此代码可以解决您的问题：
Stock <- AAPL["2018-08"]
chartSeries(Stock, theme="white")
addTA(OBV(Cl(Stock), Vo(Stock)))
Stock prices chart with OBV added