用R自定义股票指标出错，请教！

我打算自编一个股票指标，该指标的数值为TXT文本，因此需要用到quantmod包并结合txt里面的data.

以下是我的code,但最后一步addTA总是报错，我想将自定义指标的值对应于其所在的日期，然后按大小绘在成交量的下面。

library("quantmod")
library("FinancialInstrument")
library("PerformanceAnalytics")
library("TTR")


s <- getSymbols("002389.SZ",auto.assign=FALSE)   
head(s)

x <- s[Vo(s)>0]

我自己做的类似工作，供参考：
chartSeries(SSEC, subset = "2013-05-01/2013-05-31", theme = "white", TA = "addSMA(n=5,col="red");addSMA(n=30,col="blue")")
ss <- SSEC["2013-05-01/2013-05-30"]
addTA(ss[x, "SSEC.Low"] - 10, pch = 17, type = "p", col = "red", on = 1)