data("nuvel1")
na_pa <- subset(nuvel1, nuvel1$plate.rot == "na")
data("plates")
plate_boundary <- subset(plates, plates$pair == "na-pa")
data("san_andreas")
PoR_map(san_andreas, PoR = na_pa, pb = plate_boundary, type = "right", show.deviation = TRUE)
Run the code above in your browser using DataLab