技术分析 - R

Question

以下是关于OBV计算的一些参考文献：

1. http://ta.mql4.com/indicators/volumes/on_balance_volume
2. http://stockcharts.com/school/doku.php?id=chart_school:technical_indicators:on_balance_volume_obv
3. http://en.wikipedia.org/wiki/On-balance_volume

当我在TTR包中导航到OBV功能的源代码时，我看到：

"OBV" <-
function(price, volume) {
    # On Balance Volume
    price <- try.xts(price, error=as.matrix)
    volume <- try.xts(volume, error=as.matrix)

    if(!(is.xts(price) && is.xts(volume))) {
        price <- as.vector(price)
        volume <- as.vector(volume)
    }
    obv <- c( volume[1], ifelse( ROC(price) > 0, volume, -volume )[-1] )
    obv <- cumsum( obv )
    if(is.xts(obv)) {
        obv <- xts(obv,index(price))
        colnames(obv) <- 'obv'
    }
    reclass( obv, price )
}

我看到在OBV函数实现中不存在参考网页中的相等情况（我的意思是当今天的结束等于昨天结束时的情况）。

这是一个错误还是对包裹的接受？如果是错误，我可以在哪里报告问题？

谢谢，

Answer 1

这看起来像一个错误，所以I've reported it。我应该能够在接下来的几天内修复它。

一般情况下，你应该问一下包维护者（在这种情况下碰巧是我）因为他们更有可能知道某些东西是否是一个bug而不是stackoverflow上的普通观众。