R/doubleBottom.R

In rpnf: Point and Figure Package

#' returns true if given column c matches exactly previous column of same type (this is always column c-2)
#'
#' @param redData Data to consider
#' @param column Column to consider
doubleBottom <- function(redData,column) {
  # if (column-2>=1) # old version
  if (column>=3) # new, optimized version
    return (minBox(redData,column)==minBox(redData,column-2))
  else
    return (FALSE)
}