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

Question

Здесь есть несколько ссылок по расчетам Аверс:

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.

Является ли это ошибкой или принятием пакета? Если это ошибка, где я могу сообщить об этой проблеме?

Спасибо,

Answer 1

Это выглядит как ошибка, так I've reported it. Я должен уметь это исправлять когда-нибудь в течение следующих нескольких дней.

В общем, вы должны спросить у сопровождающего пакета (который в этом случае мне нужен), потому что они с большей вероятностью узнают, является ли что-то ошибкой, чем общая аудитория в stackoverflow.