## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(redistmetrics)
data(nh)

## -----------------------------------------------------------------------------
data(nh_m)

nh_m <- nh_m[, 1:4]

## -----------------------------------------------------------------------------
dist_info(plans = nh_m, shp = nh, total_pop = pop)

## -----------------------------------------------------------------------------
dist_ham(plans = nh_m)

## -----------------------------------------------------------------------------
dist_man(plans = nh_m)

## -----------------------------------------------------------------------------
dist_euc(plans = nh_m)