Get minimum threshold of distance that makes sure each observation has at least one neighbor
min_distthreshold(sf_obj, is_arc = FALSE, is_mile = TRUE)
A numeric value of minimum threshold of distance
if (FALSE) { # \dontrun{
library(sf)
guerry_path <- system.file("extdata", "Guerry.shp", package = "rgeoda")
guerry <- st_read(guerry_path)
dist_thres <- min_distthreshold(guerry)
dist_thres
} # }