# Load data
data("com")
# Travel time matrix
distCom <- osrmTable(loc = com[1:50,],
locId = "comm_id",
locLat = "lat",
locLon = "lon")
# First 5 rows and columns
distCom$distance_table[1:5,1:5]
distCom2 <- osrmTable(src = com[1:50,],
srcId = "comm_id", srcLat = "lat", srcLon = "lon",
dst = com[51:100,],
dstId = "comm_id", dstLat = "lat", dstLon = "lon")
# First 5 rows and columns
distCom2$distance_table[1:5,1:5]
Run the code above in your browser using DataLab