# NOT RUN {
{
data(net)
data(pc_profile)
p1 <- pc_profile[, 1]
adt1 <- adt(pc = net$ldv*0.75,
lcv = net$ldv*0.1,
hgv = net$hdv,
bus = 0,
mc = net$ldv*0.15,
p_pc = p1,
p_lcv = p1,
p_hgv = p1,
p_bus = p1,
p_mc = p1)
head(adt1)
plot(adt1)
adt2 <- adt(pc = net$ldv*0.75,
lcv = net$ldv*0.1,
hgv = net$hdv,
bus = net$hdv,
mc = net$ldv*0.15,
p_pc = p1,
p_lcv = p1,
p_hgv = p1,
p_bus = p1*0, # when zero, must be the same size
p_mc = p1,
TRUE)
head(adt2)
plot(adt2) # Class Vehicles
}
# }
Run the code above in your browser using DataCamp Workspace