Get False Discovery Rate value based on current LISA computation and current significant p-value
lisa_fdr(gda_lisa, current_p)
A numeric vector of False Discovery Rate
if (FALSE) { # \dontrun{
library(sf)
guerry_path <- system.file("extdata", "Guerry.shp", package = "rgeoda")
guerry <- st_read(guerry_path)
queen_w <- queen_weights(guerry)
lisa <- local_moran(queen_w, guerry["Crm_prs"])
fdr <- lisa_fdr(lisa, 0.05)
fdr
} # }