# Principles of Archaeological Stratigraphy, fig. 12
harris <- matrix(
data = c(2, 1,
3, 1,
4, 1,
5, 2,
5, 3,
5, 4,
6, 5,
7, 1,
7, 6,
8, 1,
8, 6,
9, 7,
9, 8),
ncol = 2,
byrow = TRUE,
dimnames = list(NULL, c("lower", "upper"))
)
strati <- as_stratigraphy(harris)
Run the code above in your browser using DataLab