Geographic Setting

Village Locations

Willingham (present)

Willingham Test Pits

Nearest Point Along Roads

tp.ppp <- as(tp, "ppp")
roads.psp <- as(roads, "psp")
tp.roads <- project2segment(tp.ppp, roads.psp)

Transform to igraph

network <- points2network(roads, pts.nodes, mapping.method=2, ELComputed=TRUE, longlat=TRUE, ea.prop=(rep(c(0), length=roads.columns)))
graph <- nel2igraph(network[[1]], network[[2]], weight=network[[8]])

plot(graph, vertex.size=3)

Shortest Paths Function

Willingham 1200-1400AD

Willingham 1400-1550 AD

Peakirk

Peakirk 1200-1400AD

Peakirk 1400-1550AD

Distance from Street Frontage

Willingham Test Pits and 50m Buffer

Peakirk Test Pits and 50m Buffer