R/dark.cloud.cover.R

In kochiuyu/CandleStickPattern: Candle Stick Pattern (CandlesStickPattern)

#' Determine dark cloud cover pattern using a OHLC price series
#'
#' @param x OHLC prices.
#' @return TRUE if dark cloud cover pattern detected
#' @export

dark.cloud.cover<- function(x) {
  Cl <- quantmod::Cl(x)
  M <- CandleBodyCenter(x)

  Lag.M <- quantmod::Lag(M)

  U <- bullish.candle(x)
  D <- bearish.candle(x)

  Lag.U <- quantmod::Lag(U)

  result <- xts::reclass(D  &
                    Lag.U &
                    Cl <= Lag.M,
                    x)
  colnames(result) <- "dark cloud cover"
  return(result)
}