This is a modified version of the all.equal function which returns a vector rather than a message
# S3 method for numeric
compare_vectors(
target,
current,
tolerance = sqrt(.Machine$double.eps),
scale = NULL,
...
)
the base vector
a vector to compare target to
Level of tolerance for differences between two variables
Scale that tolerance should be set on. If NULL assume absolute
Not used