Технически анализ - изчисляване на индикатора OBV в R

Ето няколко справки за изчисленията на 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

Когато навигирам до изходния код на функцията OBV в пакета TTR, виждам:

"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.

Това грешка ли е или приемане на пакета? Ако това е грешка, къде мога да докладвам за проблема?

Благодаря,