In ahorawzy/HVS: This package is designed for Highway Virtual Traffic Survey Station project.

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

Library HVS and load related data

• load adjacency weighted matrix "road_net"
• load highway charge data "demosf"

library(HVS)
data(road_net)
data(demosf)

Path allocation

Return two matrix:

• "mileage" contains route distance of every 2 OD points.
• "path" contains corresponding route path information.

result <- dijkstra_matrix(road_net)
mileage <- result[[1]]
path <- result[[2]]

Allocate every sample a route path.

demosf$path <- mapply(function(O,D) path[[O]][[D]],demosf$O,demosf$D)
head(demosf,10)

Split path to link

demosf$link <- lapply(demosf$path,extract_link)
head(demosf,10)

Print all link in this road_net

(all_link <- all_link(road_net))

Caculate traffic flow of 1 single link

caculate_natureflow("1-2",demosf$link)

Caculate traffic flow of all links

sapply(all_link, caculate_natureflow,demosf$link)

ahorawzy/HVS documentation built on May 29, 2019, 1:52 a.m.