newTA SMA OBV Как?

Question

Я пытаюсь создать новый индикатор в R с помощью команды Quantmod newTA, но не могу этого сделать.

Индикатор представляет собой простое 20-дневное скользящее среднее OBV.

пока я пробовал это

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