This function creates a midpoint graph where nodes represent the midpoints of links in the input network.
Examples
# Create a road network
network <- create_road_network(sample_roads)
# Plot the road network
plot(network$graph)
# Create a midpoint graph from a road network
graph <- create_midpoint_graph(network)
# Plot the midpoint graph
plot(graph)