R/kick.up.R

In kochiuyu/CandleStickPattern: Candle Stick Pattern (CandlesStickPattern)

#' Determine kicking up pattern using a OHLC price series
#'
#' @param x OHLC prices.
#' @return TRUE if kicking up pattern detected
#' @export


kick.up <- function(x) {
  U <- bullish.candle(x)
  D <- bearish.candle(x)
  GU <- gap.up(x)

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

  result <- xts::reclass(U  &
                    Lag.D &
                    GU ,
                    x)
  colnames(result) <- "kick up"
  return(result)
}