#' Determine long candle using a OHLC price series
#'
#' @param x OHLC prices.
#' @param n period
#' @param delta sensitivity parameter
#' @return TRUE if long candle detected
#' @export
long.candle <- function(x, n=20, delta=1) {
BL <- CandleBodyLength(x)
BL.Median <- TTR::runMedian(BL,n)
result <- xts::reclass(BL >= BL.Median * delta, x)
colnames(result) <- "long candle"
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.