data("san_andreas")
data("nuvel1")
PoR <- subset(nuvel1, nuvel1$plate.rot == "na")
PoR_stress2grid(san_andreas, PoR) |> head()
if (FALSE) {
PoR_stress2grid_stats(san_andreas, PoR, mode = TRUE) |> head()
}
Run the code above in your browser using DataLab