p <- matrix(1:90, nrow = 45, ncol = 2)
is_regular_grid(p)
# Jitter locations.
set.seed(1234)
jitter <- runif(length(p)) / 10e4
p_jitter <- p + jitter
# Adjust digits.
is_regular_grid(p_jitter, digits = 4)
Run the code above in your browser using DataLab