# NOT RUN {
# load and format reference data
stl <- stLouis
stl <- dplyr::mutate(stl, TRACTCE = as.numeric(TRACTCE))
# create cluster
cluster <- qm_define(118600, 119101, 119300)
# create simple cluster object
cluster_obj <- qm_create(ref = stl, key = TRACTCE, value = cluster,
rid = 1, cid = 1, category = "positive")
# test cluster object
qm_is_cluster(cluster_obj)
# }
Run the code above in your browser using DataCamp Workspace