trs = vector("list",2)
trs[[1]] = c(1,9,4,7,3,6,1)
trs[[2]] = c(1,8,5,2,10,12,11,1)


df = readxl::read_excel("dataR.xlsx")
# par(mfrow = c(1,2))
plot_dronetruck_kvehicle2(trs)

cost.plot.name = "vrp.png"
png(filename = cost.plot.name, width = 500, height = 400)
plot_dronetruck_kvehicle2(trs)
dev.off()


trs[[1]] = c(1,9,7,6,1)
trs[[2]] = c(1,8,2,12,11,1)

drs = vector("list",2)
drs[[1]] = matrix(c(9,4,7,
                    7,3,6), nrow = 2, ncol = 3,T)
drs[[2]] = matrix(c(8,5,2,
                    2,10,12),2,3,T)

plot_dronetruck_kvehicle2(trs, drs)

cost.plot.name = "vrpd.png"
png(filename = cost.plot.name, width = 500, height = 400)
plot_dronetruck_kvehicle2(trs, drs)
dev.off()

truck.routes = trs
drone.routes = drs
par(mfrow = c(1,1))
