R/doubleTop.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
doubleTop <- function(redData,column) {
  # if (column-2>=1) # old version
  if (column>=3) # new, optimized version
    return (maxBox(redData,column)==maxBox(redData,column-2))
  else
    return (FALSE)
}