In this notebook we provide a toy dataset that is used to calculate both conventional accessibility and spatial available accessibility. This is a more smaller and theoretical alternative dataset that can be used in place the the real-world TTS-16.
Libraries:
library(sf) library(tidyverse)
Load data for example:
load("toy-example-data-inputs/od_table.rda") toy_od_table <- od_table load("toy-example-data-inputs/simulated_data.rda") toy_sim_zones <- simulated_data load("toy-example-data-inputs/trips.rda") toy_trips <- trips
Remove unneeded columns and add trips to OD:
toy_od_table <- toy_od_table %>% select(-c("f", "V_ij", "W_ij", "V_ij_r")) %>% merge(toy_trips%>% select(Origin, Destination, trips), by = c("Origin", "Destination"), all.x=TRUE)
Save it to /data folder:
usethis::use_data(toy_od_table, overwrite = TRUE) usethis::use_data(toy_sim_zones, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.