data("nuvel1")
# North America relative to Pacific plate:
PoR <- subset(nuvel1, nuvel1$plate.rot == "na")
# the point where we want to model the SHmax direction:
point <- data.frame(lat = 45, lon = 20)
prd <- model_shmax(point, PoR)
deviation_shmax(prd, obs = 90)
Run the code above in your browser using DataLab