Get sparsity (
weights_sparsity(gda_w)
A numeric value of spatial weights sparsity
if (FALSE) { # \dontrun{
guerry_path <- system.file("extdata", "Guerry.shp", package = "rgeoda")
guerry <- st_read(guerry_path)
queen_w <- queen_weights(guerry)
weights_sparsity(queen_w)
} # }