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

library(HVS)

本实验演示extract_link / all_link 和 caculate_natureflow的用法

假如有一辆车，其O点为1，D点为8，通过dijkstra_matrix运算及双层列表查找，其路径为"1,3,5,7,8"

使用extract_link函数提取其link

extract_link("1,3,5,7,8")

假设有收费数据的数据框df如下

df <- data.frame(a=1:3,b=letters[1:3])
df

现添加c列为所经过link信息

df$c[[1]] <- extract_link("1,3,5,7,8")
df$c[[2]] <- extract_link("1,4,6,8")
df$c[[3]] <- extract_link("1,4,5,7,9")
df

收集所有link信息

all_link(df$c)

统计5-7这段link的交通流

caculate_natureflow(df$c,"5-7")

统计1-4这段link的交通流

caculate_natureflow(df$c,"1-4")

统计7-8这段link的交通流

caculate_natureflow(df$c,"7-8")

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