Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----message=FALSE------------------------------------------------------------
library(redist)
data(iowa)
iowa_map <- redist_map(iowa, existing_plan = cd_2010, total_pop = pop)
## -----------------------------------------------------------------------------
# Standard eval -
adj <- redist.adjacency(shp = iowa)
# tidy eval -
adj <- get_adj(iowa_map)
head(adj)
## -----------------------------------------------------------------------------
# Plot it!
redist.plot.adj(shp = iowa_map)
## -----------------------------------------------------------------------------
# Standard eval -
ndists <- 4
# tidy eval - stored within redist_map object
attr(iowa_map, 'ndists')
## -----------------------------------------------------------------------------
nsims <- 100
## -----------------------------------------------------------------------------
# standard eval -
pop_tol <- 0.01
# tidy eval - stored within redist_map object
# - getting
get_pop_tol(iowa_map)
# - setting
iowa_map <- set_pop_tol(iowa_map, pop_tol = 0.01)
## -----------------------------------------------------------------------------
sim <- redist.rsg(adj = adj, total_pop = iowa$pop, ndists = 4, pop_tol = 0.01)
head(sim$plan)
## -----------------------------------------------------------------------------
sims <- redist_smc(map = iowa_map, nsims = 10, silent = TRUE)
plans <- get_plans_matrix(sims)
## -----------------------------------------------------------------------------
# standard eval -
init_plan <- iowa$cd_2010
# tidy eval - stored within redist_map object
get_existing(iowa_map)
## -----------------------------------------------------------------------------
# standard eval
total_pop <- iowa$pop
# tidy eval - a column within the redist_map object tracked by attributes
iowa_map[[attr(iowa_map, 'pop_col')]]
## -----------------------------------------------------------------------------
iowa$white
## -----------------------------------------------------------------------------
# tidy eval - stored in redist_map object
attr(iowa_map, 'pop_bounds')
## -----------------------------------------------------------------------------
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.