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