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

## ----setup--------------------------------------------------------------------
library(sdc.redistribute)

## -----------------------------------------------------------------------------
library(sdc.redistribute)
data(sdc_example)

direct  <- redistribute_direct(sdc_example$source, sdc_example$target,
                               extensive = "pop", suffix = "_direct")
parcels <- redistribute_parcels(sdc_example$source, sdc_example$target,
                                sdc_example$parcels, extensive = "pop",
                                suffix = "_parcels")

cbind(sf::st_drop_geometry(direct["pop_direct"]),
      sf::st_drop_geometry(parcels["pop_parcels"]))