TTR下EMA函数错误

Question

我正在尝试让TTR包中的EMV函数正常工作。

library("quantmod")
library("TTR")
getSymbols("EBT.AX")
EMV(LoHi(EBT.AX), Vo(EBT.AX), n=9, maType="EMA", vol.divisor=10000)

这会产生以下错误消息：

Error in `[.xts`(HL, , 2) : subscript out of bounds.

根据TTR文档，EMV使用高-低(HL)价格。然而，HL不起作用。我已经成功地将LoHi用于其他指标(例如DonchianChannel)，但它不适用于EMV。使用以下命令也会产生相同的错误：EMV(EBT.AX[,c("High","Low")],.....。

我也尝试过：

EMV(HLC(EBT.AX)[,-3], Vo(EBT.AX), n=9, maType="EMA", vol.divisor=10000)

但这会产生以下错误：Error in runSum(x, n) : Series contains non-leading NAs.我尝试了几种不同的股票，都产生了相同的错误，但没有缺失值。

任何帮助都将不胜感激。

Answer 1

在以下任一情况下，EMV函数将抛出此错误：

1. 在任何给定的时间段内，音量的上限和下限是相等的，或者
2. 在任何给定的时间段内音量为零。

纠正这两种情况，函数就会正常工作。

EBT.AX[,2] <- EBT.AX[,2]+1e-6
EBT.AX[,5] <- EBT.AX[,5]+1e-6
emv <- EMV(HLC(EBT.AX)[,-3], Vo(EBT.AX), n=9, maType="EMA", vol.divisor=10000)