vein (version 0.8.9)

netspeed: Calculate speeds of traffic network

Description

netspeed Creates a dataframe of speeds fir diferent hours and each link based on morning rush traffic data

Usage

netspeed(q = 1, ps, ffs, cap, lkm, alpha = 0.15, beta = 4, net, scheme = FALSE)

Arguments

q

Data-frame of traffic flow to each hour (veh/h)

ps

Peak speed (km/h)

ffs

Free flow speed (km/h)

cap

Capacity of link (veh/h)

lkm

Distance of link (km)

alpha

Parameter of BPR curves

beta

Parameter of BPR curves

net

SpatialLinesDataFrame or Spatial Feature of "LINESTRING"

scheme

Logical to create a Speed data-frame with 24 hours and a default profile. It needs ffs and ps:

00:00-06:00	ffs
06:00-07:00	average between ffs and ps
07:00-10:00	ps
10:00-17:00	average between ffs and ps
17:00-20:00	ps
20:00-22:00	average between ffs and ps
22:00-00:00	ffs

Value

dataframe speeds with units or sf.

Examples

# NOT RUN {
data(net)
data(pc_profile)
pc_week <- temp_fact(net$ldv+net$hdv, pc_profile)
df <- netspeed(pc_week, net$ps, net$ffs, net$capacity, net$lkm, alpha = 1)
class(df)
plot(df) #plot of the average speed at each hour, +- sd
df <- netspeed(ps = net$ps, ffs = net$ffs, scheme = TRUE)
class(df)
plot(df) #plot of the average speed at each hour, +- sd
dfsf <- netspeed(ps = net$ps, ffs = net$ffs, scheme = TRUE, net = net)
class(dfsf)
head(dfsf)
plot(dfsf) #plot of the average speed at each hour, +- sd
# }