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