if (FALSE) {
# load and format reference data
stl <- stLouis
stl <- dplyr::mutate(stl, TRACTCE = as.numeric(TRACTCE))
# create cluster
cluster <- qm_define(118600, 119101, 119300)
# preview cluster
qm_preview(ref = stl, key = TRACTCE, value = cluster)
}
Run the code above in your browser using DataLab