# NOT RUN {
# load and format reference data
stl <- stLouis
stl <- dplyr::mutate(stl, TRACTCE = as.numeric(TRACTCE))
# create clusters
clusterValid <- qm_define(118600, 119101, 119300)
clusterError <- qm_define(118600, 119101, 800000)
# validate clusters
qm_validate(ref = stl, key = TRACTCE, value = clusterValid)
qm_validate(ref = stl, key = TRACTCE, value = clusterError)
# }
Run the code above in your browser using DataLab