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