#' Determine bearish harami pattern using a OHLC price series
#'
#' @param x OHLC prices.
#' @return TRUE if bearish haramipattern detected
#' @export
bearish.harami <- function(x) {
BT <- CandleBodyTop(x)
BB <- CandleBodyBottom(x)
Lag.BT <- quantmod::Lag(BT)
Lag.BB <- quantmod::Lag(BB)
U <- bullish.candle(x)
D <- bearish.candle(x)
Lag.U <- quantmod::Lag(U)
result <- xts::reclass(D &
Lag.U &
BT <= Lag.BT &
BB >= Lag.BB, x)
colnames(result) <- "bearish harami"
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.