R/almostEqual.R

In emse-p4a-gwu/p4aGrader: Autograder for for EMSE 4574: Programming for Analytics

Defines functions almostEqual

Documented in almostEqual

#' Define helper function "almostEqual"
#' @export
almostEqual <- function(d1, d2, epsilon = 0.00001) {
  return(abs(d1 - d2) <= epsilon)
}