r - 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))