addTA - naCheck(x，n)中的错误:系列包含非前导NAs

Question

最近，我试图创建自己的技术指标，一个简单的黄金交叉指示器。50 - 200天将被添加到我的chartSeries图表.首先，下面的代码运行得很好，但是在更新的quantmod包发布后，它给出了以下错误消息：

代码(库存数据通过getSymbols函数在quantmod中下载)

#20dayEMA - 50dayEMA Technical indicator, Price and Volume
newEMA <- function(x){(removeNA(EMA(p[,6],n=50)-(EMA(p[,6],n=200))))
}
emaTA <- newTA(newEMA)
emaTA(col='lightgoldenrod3', 'Price')

然后它给了我一个错误消息：

naCheck(x，n)中的错误:系列包含非前导NAs

有谁知道如何去除这些不领先的NAs吗？

Answer 1

您可以使用na.omit，并且不需要转换为xts-object，因为这是默认的。

library(quantmod)
getSymbols("VELO.CO")
p <- na.omit(VELO.CO)
newEMA <- function(x) {
  EMA(p[,6], n = 20) - (EMA(p[,6], n = 50))
}

emaTA <- newTA(newEMA)
barChart(VELO.CO)
emaTA(col = "lightgoldenrod3", "Price")

Answer 2

我不熟悉quantmod包，但我反复使用您的代码，我想我找到了一个可行的解决方案：

library("quantmod")
getSymbols("VELO.CO")
p <- as.xts(c(VELO.CO))

# remove incomplete cases
vec <- which(!complete.cases(p))  # rows 2305 2398
p2 <- p[-vec, ]

newEMA <- function(x) {
    EMA(p2[, 6], n = 20) - (EMA(p2[, 6], n = 50))
}

emaTA <- newTA(newEMA)
barChart(VELO.CO)
emaTA(col = "lightgoldenrod3", "Price")