In tributetotobler/ttt: Tribute to Tobler

title: "Potflows" output: rmarkdown::html_vignette vignette: > %\VignetteIndexEntry{Potflows} %\VignetteEngine{knitr::rmarkdown} %\VignetteEncoding{UTF-8}

---

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

library(ttt)
library(sf)
library(dplyr)
library(ggplot2)

Potential and flows dollars data

data("dollars")
vintageframe(dollars$polygones)
delta = rowSums(dollars$OD)-colSums(dollars$OD)
dollars$polygones$delta=delta
plot(st_geometry(dollars$polygones),add=TRUE)
plusmoins(dollars$polygones,"delta")

pot.dollars = poisson.potential(dollars$polygones)
plot(pot.dollars%>%select(attractivity))

par(mar=c(0,0,0,0))
vintageframe(dollars$polygones)
plot(st_geometry(dollars$polygones),add=TRUE)
poisson.flows(pot.dollars,normfact = 0.01)

Potential and flows us migrations 65-70

data("usmigrations")
vintageframe(usmigrations)
plot(st_geometry(usmigrations),add=TRUE)
plusmoins(usmigrations,"delta7580")

data("usmigrations")
pot.migr = poisson.potential(usmigrations,"delta6570")
plot(pot.migr%>%select(attractivity))

par(mar=c(0,0,0,0))
vintageframe(usmigrations)
plot(st_union(usmigrations),add = TRUE)
poisson.flows(pot.migr,normfact = 100)

tributetotobler/ttt documentation built on Sept. 15, 2022, 5:41 p.m.