R/approx_equals.R

In James-Thorson/movement_tools: Tools for movement operators in GMRF models

Defines functions approx_equals

Documented in approx_equals

approx_equals <-
function(a,b) ifelse( abs(log(a/b))<1e-3, TRUE, FALSE )