if (requireNamespace("dplyr", quietly = TRUE)) {
res <- dplyr::transmute(
guerry,
top_crime = as.factor(crime_prop > 9000),
nb = st_contiguity(geometry),
wt = st_weights(nb, style = "B"),
jc = local_jc_uni(top_crime, "TRUE", nb, wt))
tidyr::unnest(res, jc)
}
Run the code above in your browser using DataLab