Dip-slip sense (1 for normal, -1 for reverse) when only strike-slip kinematics are known
Usage
sense_from_strikeslip(x, left)
Arguments
- x
"Pair" object(s) of the plane(s) and line(s) with unknown dip-slip offset
- left
logical. TRUE if x is a left-lateral (sinistral) fault, and
FALSE if x is a right-lateral (dextral) fault.
Must have same length as rows in x
Value
numeric. 1 if normal, -1 if reverse offset
Examples
# Sinistral fault
sense_from_strikeslip(Pair(120, 89, 30, 5), left = TRUE) # 1: normal offset
#> [1] 1
# Dextral fault
sense_from_strikeslip(Pair(120, 89, 30, 5), left = FALSE) # -1: reverse offset
#> [1] -1