omxCheckWithinPercentError(a, b, percent = 0.1)
options("mxPrintUnitTests" = FALSE)
.
omxCheckCloseEnough
, omxCheckIdentical
, omxCheckSetEquals
, omxCheckTrue
, omxCheckEquals
omxCheckWithinPercentError(c(1, 2, 3), c(1.1, 1.9 ,3.0), percent = 50)
omxCheckWithinPercentError(matrix(3, 3, 3), matrix(4, 3, 3), percent = 150)
# Throws an error
try(omxCheckWithinPercentError(c(1, 2, 3), c(1.1, 1.9 ,3.0), percent = 0.01))
Run the code above in your browser using DataLab