newTA SMA OBV怎么样？

Question

我正在尝试使用quantmod的命令newTA在R中创建一个新指标，但我无法做到。

指标是OBV的20天移动平均值。

到目前为止我试过这个

getSymbols("GEK.AT")
addObvma20 <- newTA(SMA(OBV(Cl(GEK.AT), Vo(GEK.AT)), n=20))
# Error in newTA(SMA(OBV(Cl(GEK.AT), Vo(GEK.AT)), n = 20)): FUN required
# to be a function object

和这个

addObvma20 <- newTA(SMA(OBV), n=20)
# Error in as.vector(x, mode):cannot coerce type 'closure' to vector of type 'any' 

我想帮助创建这个指标。

Answer 1

根据帮助页面调整示例，我认为您需要addTA而不是newTA。

getSymbols("GEK.AT")
barChart(GEK.AT)
addTA(SMA(OBV(Cl(GEK.AT), Vo(GEK.AT)), n = 20))